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nota do editor 

Informatizar uma sociedade não é, certamente, 
uma tarefa fácil. Informatizar a sociedade brasileira, 
e* t r emament e desinformada por uma estrutura educacio- 
nal catastrófica, fruto de décadas de autoritarismo 
e burocracia corrupta, é uma tarefa quase Impossível! 

Apesar disso, o nível médio da inteligência 
dos brasileiros não foi, felizmente, seriamente afeta- 
do petos fatores conjunturais. Enquanto as escolas de 
computação, em todos os níveis, ministravam cursos no 
mínimo obsoletos, uma grande quantidade de brasileiros 
inteligentes partiram para o au to-d i dat i smo, alfabeti- 
zando-se em pequenos e baratos microcomputadores pes- 
soais, ensaiando seus primeiros passos de maneira tal- 
vez não metódica, mas muitas ve2es brilhante, na lin- 
guagem BASIC. 

Embora alguns "gênios" da computação nacional 
olhem esta linguagem com profundo desprezo (fruto de 
uma visão academicamente elitista e distorcida) uma e~ 
norme quantidade de usuários, muitos dos quais eiítre- 
mamentc lúcidos e criativos, a utiliza por ter sido 
sua w porta de entrada” no mundo da informática cujo 
acesso, de outra forma, lhes teria sido vedado ficando 
restrito a uma minoria "cartcr í a em muitos casos 
I nef I ci ente e estér i I , 

Para atender âs necessidades destes usuários 
inteligentes mas sem uma formação metódica em progra- 
mação, p que convidamos o engenheiro ROBERTO MASSARU 
WÂTANABE, bem brasileiro apesar do sobrenome, para es- 
crever este livro. 

Embora a formação do Watanabe tenha sido em 
sistemas de grande porte, usando técnicas que trans- 
cendem a linguagem BASIC, seu enorme tirocínio em mi- 
crocomputadores pessoais ihe deu a possibilidade de 
transferir boa parte destes recursos para esta lingua- 
gem mais simples . 

Dando um passo a mais no mundo da informática 
o leitor terá a possibilidade de, construindo progra- 
mas passo a passo com o autor, dominar as técnicas dü 
"bem programar”, tornando suas li stagens Intel I g í ve I s 
a terceiros, permitindo uma fácil manutenção a imple- 
mentação dos sistemas desenvolvidos. 

D leitor deve ter consciência de que, como na 
famosa propaganda do ”eu sou você amanhi”, ele mesmo 
poderá não entender, daqui a alguns meses, como eíc 
próprio desenvolveu um determinado raciocínio? 


introdução 


A cada dia que passa, mais e mais problemas 
passam a ser resolvidos com o emprego de computadores. 
Basta dar orna folheada nas revistas especializadas du 
efetuar uma visita a uma livraria, 0 computador está 
transpondo os limites tradicionais das 4 paredes de um 
escritório e encontrando o seu lugar na medicina, na 
pecuária, na industria e até em áreas pouco habituadas 
ao processamento de dados, como as ciências sociais e 
a religião. 

I ndependentemente da natureza de um problema, 
dizer que o mesmo passou a ser solucionado com o auxí- 
lio de um computador, significa que houve uma te Hz 
associação entre o computador, □ problema e o usuário, 
^abe lembrar que a simples reunião desses 3 componen- 
te não consegue, por si só, encontrar a soiução. É 
necessário termos um certo usuário que se defronta com 
um determinado problema e que tenha a vontade de re- 
solver este prohtema com o auxilio do computador, 

Nns problemas que passaram a ser resolvidos 
com computadores, a quem devemos atribuir os méritos 
desse feito*' Ao computador, cujos bits, cada vez mais 
poderosos, estão sendo oferecidos a preços cada vez 
mais acessíveis ao grande público? ao problema que 
pela sua natureza estratégica dentro da empresa, ne- 
cessita de soluções rápidas mesmo que Implique em cus- 
tos maiores? Ao usuário que, sendc aberto às novas 


tecnologias, conseguiu em pouco tempo absorver e domi- 
nar os potentes recursos oferecidos por um sistema 
computac i ona i ? 

Analisando detalhadamente cada um dos casos 
em que o emprego do computador trouxe vantagens reais, 
constatamos que todos os componentes, isto é, o compu- 
tador, o problema e o usuário têm a sua parcela de 
contribuição, Existe, porém, um quarto componente, ge- 
ratmente esquecido, que desempenha um papel decisivo 
nessa história: o programa. 

Sem um bom programa, os melhores computadores 
@ os usuários mais habilitados úq mundo quase nada po- 
dem fazer, nem mesmo resolver es problemas mais ele- 
mentares do nosso dia a dia, 

t claro que mesmo tendo uma participação pe- 
quena, o computador e o usuário são componentes que 
não podem ser desprezados, pois fazem parte de um mes- 
mo contexto, e a solução com o emprego da computadores 
deve ser encaminhada dentro de|e. Em outras palavras, 
não seria aceitável a afirmação do que o computador e 
o pr ob I ema estão coerentes porém o usuário devo ser 
trocado. 

Em qualquer situação em que desej amos empre- 
gar computadores, devemos encontrar a fórmula que per- 
mita uma participação equilibrada desses componentes e 
a receita que permite dosar cada uma dessas partes é o 
programa. Compete ao programa o reconhecimento dos 
dados do problema, a manipulação adequada desses dados 
valendo-se dos recursos oferecidos peia computador 8 a 
apresentação da solução otimizada desse mesmo problema 
na visão do usuâr i o, 

é grande, pois, a responsabilidade de um pro- 
grama, 

A eficiência da emprego de computadores está 
diretamente ligada não sá à potência dos algoritmos e 
técnicas de programação que foram utilizadas no pro- 
grama, mas também à apacidade qua o programa tem de 
amo I dar-se aos hábitos e vícios dos usuários. A solu- 
ção de um determinado problema pode ser apresentada de 
mil maneiras diferentes e a rápida compreensão dessa 
solução, depende da maneira m que o usuário gostaria 
ou está habituado a recebe tais soluções. 

Por outro lado, um problema dificilmente se 
nos apresenta de modo estático, imutável au longo do 
tempo. Existe uma espécie da evolução do problema, 0 
programa feito para resolver esse problema deve ter a 
capacidade de acompanhar essa evolução. 

Gamo se vi, existam muitos detalhas impnrtan- 
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tes que devemos considerar quandn vamos nos propor a 
desenvolver um programa. 

Este livro apresenta alguns tópicos que per- 
mutirão, aos programadores em vias de profissionaliza- 
ção estruturar um esquema de produção de programas pa- 
ra que a atividade de desenvolvimento possa ser efetu- 
ada d uma maneira rápida e racionalizada, produzindo 
programas cuja operação possa ser executada de maneira 
simples por usuários leigos, sem grandes conhecimentos 
de programação. 

Como linha central, adotou-se o BASIC da 
Microsoft, por ser um dos mais completos e poderosos. 
Existem, é claro, algumas diferenças em determinados 
comandos e tais diferenças estão sumar izadas no Apên- 
dice l . 

6 estrutura do livro compõe-se de partes onde 
foram agrupadas as sugestões de mesma natureza 3 em 
cada capítulo é desenvolvido um trecho de um sistema. 

No capítulo 9, os diversos trechos do sistema 
são agregados e o leitor terá desenvolvido o núcleo de 
um SISTEMA DE CONTROLE DE ESTOQUE, objetive final do 
livro. 


S 


roçranrias 


Este capítulo analisa a aparência de uma lis- 
tagem de programa, mostrando a conveniência de se dis- 
tribuir as instruções e os comentários de maneira a 
facítitar a leitura da listagem e a Interpretação da 
estrutura lógica do programa. 

Um programa pode ser algo como 0 apre- 
sentado na f igura 2.1 . 

Figura 2.i - Prograta coa "estilo legível''. 

188 INPUT "Fornecer as parce I as” ; A, B 
161 C = A + 0 

182 PRINT "A soma de ” : A ; 

183 PRtNT " com *\B;~ = ” ; C 
1 04 END 

Como também pode ser o da figura 2.2. 
Figura 2.2 - Prograna co# "estilo coipacto". 

*173 COLORIS. 1.1 :SCREEN2:F0R8=8T0127:X4=fl 
*0 :H=-120 : A=SQR{ 1 0384-X4 ) i FOR t =-ATOASTEP 
3: R=SQR ( X4+ 1 * I ) /1 2B s F =C0SÍ 1 E*R )* ( 1 -R )*2 « 

Y= I /S+F*32 , 1 FY<=MTHEN28ELSEH= Y ; Y * 1 28+Y : X 
=1 28+B = PSE I ( X , 1 91 -Y ) = X=12BHB í PSETÍ X, 1 91 - 
Y) 

474 I FP=1 THEN28ELSENEXT I , B : P=1 : CT=1 5:CP= 

1 ; GOSUBS80 : END 
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t ndependentemente do fato de o programa fun- 
cionar ou não e de ser eficiente ou não , existe um f a- 
tor bastante importante que deve ser levado em consi- 
deração: caso haja necessidade de se introdU2ir uma 
modificação no programa, ela deve ser implementada no 
menor prazo possível , 

Se o programa foi desenvolvido há pouco tem- 
po, é bem possível que lembremos ainda da lógica que 
foi adotada. Neste caso, as modificações poderão ser 
feitas em curtíssimo prazo, 

Na prática, porém, nos defrontamos com uma 
série de fatores que fazem com que mesmo as modifica- 
ções de pequeno porte se transformem em verdadeiros 
pesadelos, levando, muitas vezes, a crer que seria 
mais fácil o desenvo I v imento de um novo programa. Tais 
fatores podem ser os mais variados, sendo os mais usu- 
ais, os seguintes- 

- 0 programa foi desenvolvido há muito tempo, 
de modo que não lembramos mais da lógica que foi ado- 
tada e nem do significado de determinadas variáveis, 

*■ á listagem de que dispomos não corresponde 
exatamente ao programa em uso e que precisa ser modi- 
ficado. Obter uma listagem atualizada é uma tarefa di- 
fícil pois o computador em que o programa é ut i I i zado 
fica numa filial do interior e não dispõe de impres- 
sora. 


- O programa i muito longo e manusear uma 
listagem enorme à procura de um determinado trecho que 
deve ser modificado se torna cansativo e demorado, 

- Depois desse programa já desenvolvemos uma 
dezenas de outros semelhantes, de modo que confundimos 
com facilidade trechos de um com trechos dos outros* 

- O programa foi desenvolvido por um outro 
programador, cujo estilo de programação é bastante di- 
ferente daquele que adotamos. 

- Existem várias listagens do mesmo programa 
e & praticamente impossível descobrir qual é a mais 
atuai . 


Para evitar esses transtornos, procura-se 
confeccionar, par a I e I amente ao desenvolvimento do pro- 
grama, um manual conhecida como Manual do Programa, 
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0 Manual do Programa é um relatório que c o rí— 
tem todos os dados que caracterizaram o ambiente se- 
gundo o qual foi motivado o desenvolvimento do progra- 
ma. Nele são relatados os fatores que caracterizam o 
pr ob I ema * a$ condições em que se fez o programa, os 
recursos disponíveis, o tipo de pessoal envolvido na 
solução do problema, o estudo das linguagens mais ade- 
quadas para o desenvolvimento cio programa, as técnicas 
de programação e os algoritmos empregados e outras in- 
formações que possam, de alguma forma, serem úteis qu 
mesmo necessárias quando, no futuro, tivermos que pro- 
ceder a alguma modificação, 

é elaboração do Manual cfo Programa deve ser 
feita ao mesmo tempo em que se faz a elaboração do 
programa, para que nenhum dado seja omitido, 

Ma prática, porim, esse elaboração simultânea 
nem sempre é viável, pois durante o desenvolvimento do 
programa, muitas surpresas nos são reservadas peio 
computador, de modo que o prazo que snicíalmente esti- 
mamos para se ter o programa pronto e funcionando é 
consumido rapidamente e, numa época ainda distante da 
implantação do programa, já somos pressionados diaria- 
mente pelos usuários, ávidos pela soiução via computa- 
dor, 

lima das maneiras de evitar, ou ao menos dimi- 
nuir, a Influencia desses fatores é fazer com que a 
listagem do programa seja fartamente comentada, valen- 
do-se do comando 

Ve jamos, em partes, as maneiras peias quais 
os programas podem ser enriquecidos com comentários e 
outras i nf o mações i 


idemtificagHo 

Um programador que se dedica h confecção de 
programas terá, após algum tempo, um conjunto respei- 
tável de programas. Para que serve cada um deUs? 
Quando foi desenvolvido? Qual a última versãc? Estas 
são apenas algumas das questões que necessitam ser 
respondidas quando nos lançamos na tarefa de modificar 
um programa. 

Para facilitar a idaíitificaçio de um progra- 
ma usa-se agrupar as informações que o identificam no 
início do mesmo , 


Na identificação do programa, deve-se colocar 
peto menos as informações seguintes* 

- nome do programa 
-para que serve 

- nome do autor e outros participantes 

- data em que for elaborado 

- número e data da última modificação 

A identificação deve ser destacada do resto 
da listagem. Um exemplo de uma identificação completa 
e padronizada é apresentada na figura 2.3, 

Figura 2.3 - Docu&entaçao no príprio programa, 

1 00 * 

101 * * FOLPAG — Folha de Pagamento * 

1 0P * tf^ytftfytytfftyitytYtytyvtyytY^ 

103 ' 

104 * Programa desenvolvido para o 
185 ' calculo da Folha de Pagamento 
IBS p 

107 ' Joao da Silva - 13/10/05 

108 ' 

109 * i?-1 28/S2/8B 

110 p Mad i ficado para a ado c ao da 

111 7 Plano Cruzada 

115 p 

A palavra REM deve ser evitada pois a sua 
existência na sequência de instruções de um programa, 
pode dificultar a visualização e a compreensão rápida 
de partes do programa, l/eja como fica difícil a loca- 
lização do comentário na listagem da figura 2.4 . 

Figura 2-4 - liso indesejável da pseudo- in st uçãn REH* 

893 PRINT "DETERMINAÇÃO DO MAIOR" 

894 REM CALCULA X=MAIOR ENTRE 1 E 100 
39S RE5=AUX(1 } 

896 FOR U2 TO 100 

897 IF RE5<AUX( I ) THEN RES =XUS( I ) 

898 NEXT I 

Empr egando-se o apóstrofo no lugar da palavra 
REM e ainda inserindo-se alguns espaços, podemos fazer 
com que a listagem acima seja um pouco mais legível. 
Ve j a â f igura 2.5. 


Figura 2.5 - Ibu do apóstrofo coao REN. 

893 PBINT "DETERMINAÇÃO 00 HA10T 
899 ' CALCULA X=MAIOR ENTRE 1 E 180 
B95 RES= AUX{ 1 J 

896 FOR 1=2 TO 100 

897 I F ftE5<AUX( t ) THEN RES =XUS( I ) 

898 NEXT I 

ESTRUTURA DO PROGRAMA 

A estrutura lógica do programa é o item mais 
importante para a perfeita e rápida compreensão do 
mesmo. Os diversos trechos que compõem um programa são 
de natureza diversas, dependendo daquilo objetivado 
pelo trecho. 

Assim, podemos ter alguns trechos cujos obje- 
tivos sejam as principais etapas do problema e outros 
que procuram resolver detalhes do programa, tais como 
a formatação de um campo ou algoritmos introduzidos 
para contornar determinadas deficiências do sistema. 

Um programa de Folha de Pagamento pode ser 
estruturado conforme o fluxngrama da figura 2,6. 

Como se vê, os blocos principais do programa 
sâo os seguintes: 

- ÍNíCIO 

- LEITURA DOS DADOS DE UM FUNCIONÁRIO 

- CALCULO DOS PROVENTOS 

- CALCULO DOS DESCONTOS 

- IMPRESSÃO DOS RESULTADOS 

- OUTRO FUNCIONÁRIO 

- FIM 

Na listagem do programa, esses blocos devem 
receber um destaque especial para poderem ser facil- 
mente local i zados, 

0 uso conveniente da tecla TAS e linhas adi- 
cionais com símbolos repetidos antes e depois do nome 
do parágrafo, fazem com que o nome fique em evidência 
no meio da listagem. Veja a figura 2.7 . 

Além dos parágrafos principais, existem os 
parágrafos secundários que também merecem um destaque, 
porém com menor evidência, 

Isso pode ser feito de acordo com o que foi 
feito para o parágrafo principal, porém empregando um 
símbolo de menor evidência, ou mesmo sem nenhum símbo- 
lo. Veja a figura 2.6 . 


Figura 2 , 6 - Fluxograaa do Prograaa Folha dp PajanE-nto 



Figura 2,7 - Uso da taiiuiacão na docuientatão. 

20S * — 

SOI ' — CALCULO DF PROVENTOS -- 
202 ■ 





Alóm desses trechos, existem, norma imente , em 
um programa , outros trechos que não estão relacionados 
diretamente com a sua lógica principal* Sao trechos em 
que são efetuadas determinadas conversões, pesquisas 
em tabe I as, etc , 


Figura 2„B - Prioridade nas linha* R Eh - 

210 ' 

21 1 # Desconto devido ao IAPA5 

212 ' 


Esses trechos devem ser programados em uma 
região distante do trecho principal do programa- A sua 
execução pode ser efetuada por um GGSU0, 

Por exemplo, é sabido que o valor que corres- 
ponde ao desconto para o SAPAS é calculado por uma 
fórmula do tipo = 

IAPAS = REFERÊNCIA * ALÍQUOTA 


Nada mais correto do que incluir a fórmula no 
trecho principal do programa. Veja a figura 2*9 . 


Figura 2,9 - Defíniçam de fnriulas. 

21 » ’ 

21 1 p Desço nt o devido ao I AP AS 

212 r 

214 I APAS = REFERENCIA * ALÍQUOTA 


O valor da REFERENCIA e da ALÍQUOTA variam em 
função do salário, conforme uma tabela que é fornecida 
pelu IAPAS e pode sofrer alterações de um mês para 
outro. A estrutura principal do programa não deve ser 
sucetívet a qualquer alteração motivada por uma causa 
externa a empresa. A Folha de Pagamento é um instru- 
mento interno da empresa, e deve retratar a estrutura 
de organização da mesma, e se existe um desconto devi- 
do ao IAPAS, este 6 motivado por uma causa externa à 
empresa. Por isso, o critério de cálculo do desconto 
não deve figurar na estrutura principal do programa. 
Veia a f i gur a 2,1». 


1 G 


r 


J 


Figura 2.1# - Uso (te sub-rot inas, 


210 

211 

212 

213 


214 

308 

301 

302 
333 
3300 
3001 

3802 

3803 


Desconto devido ao IAPAS 

E05ÜS 3080 ' Def í ne o valor da 

REFERENCIA e da 
ALÍQUOTA em ftiocao da 
lagis I acao vigente. 
IAPA5 = REFERENCIA * ALÍQUOTA 


Rotina que 
REFERENCIA 


calcula o valor 
e da ALÍQUOTA. 


da 


NUMERAÇÃO DAS INSTRUÇÕES 

As únicas restrições do BASIC quanto aos nú- 
meros das instruções são as seguintes: 

A - os números devem ser em ordem crescente. 

B - os numeros devem estar compreendidos 
entre 0 e 65529. 


Mesmo entre programas muito longos é dlffcil 
encontrar algum que utilize uma gama muito grande tte 
numeros entre os limites acima. 

Se você tem como tiábito produzir programas 
observará que em muitos deles, existem trechos que são 
exatamente iguais, i ndependentemente da natureza do 
programa do qual eies fazem parte. 

No exemplo acima, a rotina 3800 que determina 
a REFEREN CIA e o valor da ALÍQUOTA em função 

oo aALARiO e uma rotina que pode ser empregada em mui- 
tos programas, além do programa de Folha de Pagamento. 

3e a tabela de cálculo for mantida em um ar- 
quivo em disco, a determinação do valor de REFERENCIA 
e a correspondente ALÍQUOTA podem ser determinadas 
conforme a figura 2.11 . 
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Figura 2.Ü - Lendo valores de arquivos es disto. 


3*86 

3881 

3882 

3883 

3884 
3883 

3886 

3887 
3668 
3889 


Determina o valor de REFERENCIA e 
a ALÍQUOTA em funcao da 5ALARI0. 


OPEN "T ABI AP AS" AS 61 LEN=12 
FIELD Al, 8 AS REF$,4 AS AL 19$ 
8 ES = 1 


SET A1.REG 
|E SAL AR IO 


3810 

3811 

3812 


< CVD(REFÍ) 
REFERENCIA 
: ALÍQUOTA 
= GLOSE #1 
. RETURN 
REG = REG + 1 

IF NOT EOFtl) THEN GOTO 3888 
RETURN 


THEN 

« CVIHREFÍi 
= CVS{ AL I Q$ ) 


A padronizaçao da numeração de trechos de 
programas traz inúmeras vantagens ao programador. 

Uma delas é a de fixar o conteúdo do trecho 
au número. No exemplo acima, a numeração de 3880 a 
3812 poderá ser utilizada sempre para essa rotina, em 
qualquer programa desenvolvida. Assim, guando o píO~ 
gramador estiver analisando a listagem de um programa 
qualquer e encontrar a instrução: 

GOSUB 3888 

saberá, automaticamente, que se trata de “^ÍL,,!! 0 * ' ns 
que determina o valor de REFERENCIA e da ALÍQUOTA. 

Outra vantagem, como veremos mais adiante, 
e co Fi t r amos na elaboração de um programa que necessita 
dessa mesma rotina. O comando MERGE fará com que a ro 
tina seja automaticamente incorporada ao programa, sem 
que tenhamos que digitá-la novamente. 


ESPAÇOS EH BRANCO 

A velocidade en que uma instrução e executada 
pelo computador depende do seu comprimento. Instruções 
curtas são executadas em menor tempo. 

Medindo-se o tempo gasto para executar as 
Instruções da linha 185 do programa da figuia 2.12, 
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observamos que existe um ganho de tempo aproximado de 
1,81% quando os espaços em branco são eliminados, ou 
seja, a linha 19S é substituída por : 

105 HES - SOMA + PARCIAL 


Figura 2.12 - Programa coa espaços en branco, 

180 SOMA = 18 
131 PARCIAL = £0 
18a m = 188 
183 TIME = 0 
18-1 FOR N=1 TO MX 

185 HES = SOMA + PARC I Al 

186 NEXT N 

107 PRINT "TEMPO = "TI HE 
lie ENÜ 

Espaços am branco facilitam a visualização a 
a compreensão da instrução 0 , da acordo com 0 que é 
feito pelo trecho do programa, essa pequena diferença 
de tempo pode não ser significativa. Muitas vezes k 
preferível admitir um prazo maior na execução para se 
ganhar rapidez na interpretação da listagem. 


EDieao DA LISTAGEH 

O comando LLIST é muito pobre em recursos. As 
listagens impressas obtidas com esse comando, não tlm 
as páginas n-ume radas e não sio respeitadas as margens 
de topo e de rodapé, tornando a i istagem inadequada 
para arqu i vo. 

Para contornar essas restrições, o programa- 
dor poderá valer-se de um Editor de Textos, Nestes 
casos. 0 programa deve ser salvo no disco no furmala 
de texto. 0 que é feito peia instrução; 

SAVE "A : PROGRAMA . FNT' , A 


com 0 parâmetro "A" para indicar 0 nosso desejo de que 
0 arquivo no disco esteja formatado em " ASCII", Após 
salvar 0 programa no disco. 0 programador deve carre- 
gar 0 Editor de Textos a digitar os comandos para a 
impressão do arquivo. 


19 


Caso o leitor não disponha de um Editor^ de 
Textos que atenda às necessidades de numerar as pági- 
nas e incluir linhas no topo e rodapé da listagem, po- 
derá desenvolver um Listador, baseado no exemplo da 
f i gur a 2.13 . 


Figura ?.Í3 - Prograia Listador 


101 ' LISTADOR.TXT = Imprime a listagem de programas 
103 * 

18*1 ' Programa para imprimir a listagem de 
165 ' programas, com numeracao de paginas e 

186 ' cabecalho em cada pagina. 

187 ' 

1 88 ’ R.M.Watanabe - 23/02/87 

1 89 ’ 

260 ' 

261 ' Entrada dos Dados 

282 ' 

283 ’ 

283 PHINT "LISTADOR” 

205 INP1JT "Fornecer u Nome do Programa”;N$ 

206 I NPUT "Fornecer o Cabecalho das paginas";C$ 

207 INPÜT "Fornecer a data da I istagenT^DÍ 

211 E$ = SPACESíE) 

212 MAX = 58 

213 P = 1 
388 ' 

301 ' 

382 ’ Procura o arquivo no disco 

383 ' 

303 ’ 

385 OPEN N$ FDH INPÜT AS 81 

306 L = 51 

316 LINE INPÜT 81, L$ 

311 IF L > MAX THEN G03UB 1080 

312 LPRINT E$,L$ 

313 L = L + 1 

313 IF NOT EOFt 1 ) THEN GOTO 310 

31 6 PRiNT "FINAL DA L ISTAGEMT 

317 CLOSE 81 

31 H END 

1000 ’ 

1001 ’ Rotina cabecalho 

1002 ' 
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1803 IF P = 1 THFN GOTO 1808 

100-1 FOR I = 1 TO INT(GR-MAX) - <T 

1885 IPRINT 

1 008 NEXT I 

1088 LPHINT G$” - ”D$” - "P” - " 

1083 LPHiNT 

1010 LPHINT 

1011 LPHINT 

1012 P = P + 1 

1013 L = 1 

1014 RETURN 


Programas longos produzem listagens igualmen- 
te longas, consumindo um bom tempo para a impressão. 

Ocorre, porém, que nem sempre estamos inte- 
ressados etn obter uma listagem completa do programa. 
Em situações de alterações, geralmente, apenas um pe- 
queno trecho é alterado. Nestes casos, para efeito de 
arquivo, necessitamos imprimir apenas o trecho ou a 
página alterada. 

PROGRAMA TEXTO E DE EXECUÇÃO 

Um programa que possua uma lógica complexa 
poderá resultar em uma listagem em que a quantidade de 
comentários e espaços em branco são tantos qus preju- 
dicam sensivelmente a velocidade de execução. 

Nestes casos, sugere-se operar com P tipos de 
programas: um, com todos os comentários e espaços em 
branco, que podemos chamar de PROGRAMA , TXT e outro em 
que os comentários e espaços em branco foram elimina- 
dos, e que podemos chamar de PROGRAMA, BAS. 

0 PRQGRAMA.TXT será utilizado nas análises 
para alterações no programa, sendo executado apenas 
nos testes de implantação, enquanto que o PROGRAMA. BAS 
será utilizado nas execuções rotineiras, após a im- 
P I antação . 

As alterações que tiverem que ser introduzi- 
das ho programa devem, sempre, serem efetuadas e tes- 
tadas no PftOGRAMA.TXT, 

Depois que as alterações forem testadas e 
aprovadas, o programador deve produzir o PROGRAMA. BAS . 
Para isso deve editar o programa, eliminando os comen- 
tários e os espaços em branco supérfluos. 

Os programadores "profissionais" poderão au- 
tomatizar essa produção com um programa do tipo apre- 
sentado na f i gura 2 . 14 . 


21 


Figura 2,i4 - El i h tnador de linhas 8£H. 


183 * T i RAREM_ BAS = Limpa a listagem de um programa 

10(3 ’ Elimina os comentarias e os 
108 ' espaços em branco supérfluos 
110 ' do programa 


11<1 ’ R.M.Matanabe 1 9/05/B7 

300 * 

í!03 ' Entrada do nome do programa 


306 INPIIT "nome do programa ":N$ 

308 OPFN N$ FOR INPIIT AS #1 
310 LI NE INPIIT ll;A$ 

31 p BS = " '"sROSHB 300 
21 4 m = " REM" •. GOSUfl 308 

21 G B% = ” = , COSIIB 308 
218 B§ = -.REPT,GOSUB 300 

220 I = 1 NSTRí A$,” ") 

233 IF I <> 0 THEN A$ = L EFT$( A$ , 1-1 ) + 

RIGHTÍl A$,LCN( íCOTO 338 

22-1 1 F L EN{ A® ) < E THEN GOTO 230 

?3fi PR INI A$ 

228 IF NOT FOF( 1 í THEN GOTO 218 

330 GLOSE ííl 

233 END 

308 ' 

302 ' Rotina Fl tmifia 

304 - 

386 I = I NSTRÍ A$ , B$ ) 

30B IF I O 0 THEN A$ = L EFT*l A$. 1 -1 ) . GOTO 30G 
318 I7FTURN 


0 programa da figura £.14 está apresentando a 
listagem na tela do vídeo. Faça uma alteração no mesmo 
para gravar o programa modificado na disco. 

SISTEMA DE PROGRAMAS 

0 comprimento de um programa está diretamente 
relacionado aos fatores seguintes: 

- a complexidade do problema. 

- diversidade de opções oferecidas peio 
programa. 


Problemas complexos e variedade de opções 
oferecidas tendem a produzir listagens grandes e na 
utilização de tais programas o programador poderá de- 
frontar-se com os seguintes problemas: 

- Insuficiência de memória. 

- Dificuldades na manipulação do programa. 

Conforme apresentado no Capítulo 8, o espaço 
disponível para programas e variáveis está restrito a 
determinados limites s um programa grande poderá não 
caber na área disponível para o programa ou, mesmo que 
caiba, poderá fazer restar uma área insuficiente para 
a definição das variáveis do programa. 

Nestes casos, a soíução será a de segmentar o 
programa em vários outros menores, criando-se assim, 
um conjunto de programas mais conhecido como Sistema 
de Programas. Um sistema de programas poderá ser um 
único programa ou um conjunto de vários programas, de- 
senvolvidos para resolver um determinado problema. 

Os vários programas de um sistema devem estar 
iigados entre si mediante uma lógica estabeiecida e a 
execução de um ou outro será comandada pelos demais 
programas do sistema. 

Um programa pode acionar a execução de um ou- 
tro por meio do comando RUN. 

Para exemplificar isso, digite e grave os 3 
programas da figura S.15 . 

Figura 2,i5 - Segientaíâo de uaa rotina. 

188 ' PARTE t 

10E PRINT "PARTE 1" 

194 RUN "PARTEE" 

188 ' PARTE 2 
102 PRINT "PARTE 2" 

104 RUN "PARTE3" 


180 ’ PARTE 3 
102 PRINT "PARTE 3" 

104 ENE) 

Salve os 3 programas com os nomes PARTE1. 
PARTES e PARTE3 respectivamente e execute o primeiro 
com a instrução: 

RIM "PARTE1” 


23 


I 


Existem muitas maneiras diferentes de se in~ 
terNgar os programas de um sistema. 

No exemplo acima os programas estão Interli- 
gados I i nearmente, como apresentado na figura 2.15* 

Figura 2.iá - Estrutura Linear* 



A estrutura de interligação dos programas se- 
gue em geral, a estrutura em árvore, havendo um pro- 
grama principal que executa os demais, podendo haver 
alguns desses que executam outros programas. Veja a 
figura B,t 7, 

Figura 2.Í7 - Estrutura 0 » Arvore. 







Nesses casos, a escolha do programa a ser 
carregado pelo programa PRINCIPAl será feita pelD 
usuário através de um cardápio de opções apresentado 
peio programa PRINCIPAL, 

O programa que foi carregado, ao finalizar a 
sua tarefa, poderá retornar áo programa que o carregos 
por meio de um comando FtUN. 

Maiores detalhes sobre a interligação de pro- 
gramas serão apresentados no capítulo 8. 


RESPEITO AO USUÁRIO 

O usuário é um ente impaciente e espera que n 
computador realize as tarefas instantaneamente. 

Quem já efetuou a carga de programas a partir 
de uma fita cassete está habituado a esperar o tempo 
necessário para a transferência do programa da fita 
para a memória. 

Mi*s nem todos oo usuários passaram pur essa 
experiência (ou prova de paciência) dc modo que duran- 
e a fase de cerga de um outro programa, é conveniente 
OS programas apresentarem uma mensagem do tipo, 

tstou carregando um outro programa 
Aguarde alguns instantes." 

A fim de facilitar a programação, o progra- 
mador poderá desenvolver uma rotina do tipo apresen- 
tado na figura 2.18 . 

Figura 2.ÍB - Rotina de Carga de Outro Prograta. 


5198 
510? 
5104 
5110 
511? 
5114 
511 fi 
5110 
5120 
5122 
5124 
H12G 


FSPflilE. FNT = Carrega Outro Programa 


CLS 

PRINT TT$ 

PR INT" > TRANSFERENCIA < 

PRINT 

PRINT Estou providenciando a carga do“ 
PRINT'programa " ; PP$ 

PRINT 

PJTNT"Favor aguardar alguns instantes. 


WP 


E5 


Salve esta rotina para ser utilizada no sis- 
tema apresentado no Capítulo 3. 


CUIDADO COM O NOME DO PROGRAMA 

Durante a fase de digitação do programa e 
pr inc ipa ímente durante a fase de testes do mesmo, 
existe a necessidade de muitos LGAD e SAVE do pro- 
grama . 

O programador muito atarefado, que desenvolve 
urn programa atrás do outro, poderá confundir, com re- 
lativa facilidade, o nome de um programa, Além disso, 
nomes muito compridos ou complexos costumam provocar 
erros de digitação, resultando em vários programas 
iguais com nomes um pouco diferentes e, no dia seguin- 
te, após ter "varado" a madrugada a procura de um erro 
no programa, o programador terá uma certa dificuldade 
em identificar aquele que foi alterado por ultimo, 

Para evitar esse tipo de confusão, recomenda- 
se utilizar nomes curtos e, se possível, com apenas 
uma única letra. Os comandos abaixo são multo fáceis 
de serem d í gi tados. 

LQÁO "P" 

SAVE ”P" 

Habitue-se a sempre tiar esse nome aos pro- 
gramas em desenvolvimento, isso evitará muitos aborre- 
cimentos . 

Depois que c programa estiver totalmente 
pronto e inteiramente testado, bastará dar o nome 
definitivo com o comando^ 

NAfQE "P ” AS "FOIPAG.BAS" 


Toda vez que pressionamos alguma tecia do mi- 
crocomputador, estamos querendo introduzir algum tipo 
de informação- Pode ser o nome de um funcionário para 
que o programa calcule a Folha de Pagamento, a taxa de 
juros para o programa calcular o valor das prestações, 
um número que representa uma das alternativas apresen- 
tadas por um cardápio de opções ou mesmo um comando 
para interromper a execução do programa. 

Analisando as situações em que as teclas são 
pressionadas podemos constatar que a intenção com que 
isso é feito varia conforme as necessidades do progra- 
ma e de fatos esternos a ele, tais como erro de digi- 
tação ou a necessidade imprevista de interrupção do 
serviço, 

o programador deve analisar os fstos segundo 
a ótica do programa e também segundo a do usuário. 

Do ponto de vista do programa, essas situa- 
ções podem ser agrupadas conforme o seguinte: 


A - Fornecimento de dados ao programa. 

São situações em que o programa soiicita 
a informação que será processada, tais como o 
nome, o endereço, a idade, a quantidade, a 
taxa de juros, etc. 
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8 - Escolha de opções . 


São situações sm que o programa, prevendo 
diversas alternativas de processamento, apre- 
senta uma relação de opções, para que o usuá- 
r ío esco I ha uma delas. 

G - Comandos para o programa, 

São situações em que desejamos passar de- 
terminados comandos para o programa. 

Vejamos o que pode ocorrer do ponto de vista 
do usuário. 

A - Durante a digitação de uma determinada 
informação, foi cometido um engano, detectado antes de 
se terminar a digitação da mesma, 

9 - Foi fornecida uma informação errada que 
só foi notada ao se digitar a informação seguinte. 

C - Durante a digitação de uma serie de da- 
dos, ouve uma interrupção no trabalho para que o usuá- 
rio pudesse, por exemplo, atender ao telefone, e quan- 
do retornou à atividade, rão conseguiu lembrar em que 
item a digitação foi interrompida. 

D - Foi escolhida uma opção errada, consta- 
tando-se essa falha, quase ao mesmo tempo em que a 
tecla da opção foi pressionada. 

Erros de digitação são muito comuns. Um pro- 
grama *'prof l ssi onar* deve, até certo ponto, permitir 
aígum tipo de erro e ^oferecer ao usuário a oportunida- 
de de corrigir o mesmo , 

Vejamos como e possível conciliar as diversas 
necessidades do programa com as situaçães, muitas ve- 
ies imprevisíveis, que cercam o usuário quando ele for 
d \ gi t ar os dados . 

COMANDOS E FUNÇoES PARA A 
ENTRADA DE DADOS 

Os comandos e funções que a linguagem BASIC 
oferece para a entrada de dados pelo teclado são os 
seguí ntes : CSRLIN, INKEY$, INPUT, IMPUTA L MMÈ INPUT, 
PDS. 
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Vamos analisar cada um dos comandos e verifi- 
car até que ponto ele poderá ser útil nas situações 
que o programa vai enfrentar para recebimento de da- 
dos. 

CSRL I N - Fornece a linha do cursor. 

Esta função nos fornece o número da linha em 
que está posicionado o cursor. Os valores possíveis 
si tuam-se entre 8 e 23. 

Pode ser útil em situações de escolha de uma 
das alternativas apresentadas por um menu de opções. 

Exemplo* 0 programa da figura 3.1 apresenta 
uma tela com 5 opções, onde o usuário deve deslocar o 
cursor até a opção desejada, com o auxílio das teclas 
í e i e, em seguida, pressionar a tecla RETURN. 


Figura 3.1 - Uso de C5RLIH. 


108 GLS 
101 PRINT 
10? PRtNT 

103 PRINT "A - Opcao 1" 

184 PRINT 

105 PRINT "B - Opcao 2" 

10S PRINT 

107 PRINT "C - Opcao 3" 

108 PRINT 

109 PRINT "D - Opcao 4" 

11@ PRINT 

111 PRINT "E - Opcao 5” 

112 PRINT 

113 PRINT 

114 PRINT "Escolha uma das opcoes 

acima e pressione RETURN" 

115 HC = 15 

110 vc ~ P 

117 LOGATE HG, VG : PRINT *'< " 

118 1$ = INKEYI 

119 IF l$=“" THEN GOTO 118 

120 IF ASCÍ ISM3 THEN GOTO 138 

121 LOCATE HC.VC ; PRINT SPCÍ4) 

122 IF ASCÍ I $)O30 THEN GOTO 126 

123 VC * VC - 2 

124 IF VG<2 THEN VG = 2 

125 GOTO 117 

126 IF ASCÍ 1 8 1031 THEN GOTO 117 
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1B7 VC = VC + B 

128 IF VO10 THEN VC = 10 

129 GOTO 117 

138 GR a I NT ( C5RL I N/2 ) 

131 LOGATE ,16 : PRINT "Voce escolheu a opcao ";CR 

132 ERD 


\m 

1 01 - i 1 1 
ii2-m 
1 1 B-1 1 G 
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118-119 


120 


121 


122 

123 

12 ^ 

125 

126 

127 

120 

129 

130 


131 

132 


Comentar i os ; 

Apaga toda a teta para a apresentação das 
opções. 

Apresenta as 5 opções. 

Instrui o usuário de como proceder* 

Define um valor iniciai para as variáveis HC 
e VC que vão comandar o posicionamento da se- 
ta indicativa» 

Posiciona o cursor na coordenada HC.VC e de- 
senha a seta indicativa. Na primeira vez, o 
posicionamento será na coordedenada definida 
nas instruções 115 e 116. Mas outras vezes, 
o posicionamento será na coordenada redefini*- 
da em 123 ou 127* 

Aguarda que alguma tecia seja pressionada. 0 
vaior da tecia é armazenado na variáveí 1$ 
para que possa ser comparado em 120, 122 e 
12G. 

Verifica se a tecla pressionada foi a tecla 
RETURN, que possuí o código ASCt \ igual a 13* 
Se sim, sai do cicto, pulando para 138* 
Reposiciona o cursor na coordenada HC, VC cn~ 
de havia sido desenhada a seta indicativa e 
apaga-a, imprimindo espaços em branco. 
Verifica se a tecla pressionada foi a tecia 
4, que possui o código ASCII igual a 30, 

Se sim, diminui o valor da ordenada VC. 

Limita o menor valor da ordenada VC em 2. 
Volta para repetir o ciclo. 

Verifica se a tecia pressionada foi a tecla 
f, que possui o código ASCII igual a 31- 
Se sim, incrementa o valor da ordenada VC* 
Limita o maior valor da ordenada VC em 18. 
Volta para repetir o ciclo. 

Calcula o valor da opção escolhida, com base 
na posição do cursor, fornecida pela função 
CSflLIN. 

Imprime o valor calculado. 

Encerra a execução do programa. 
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I NKEY$ - Obtém o caractere da tecla 
pressionada, 

Esta função fornece o valor da tecla pressio- 
nada no instante em que o programa executa a função. 

é muito difícil o usuário acertar o momento 
exato em que a função está sendo executada. Por isso, 
é usual colocarmos a função dentro de um ciclo, veri- 
ficando constantemente se o valor da tecla "pressiona- 
da" é uma striíig vazia ou não. Enquanto nenhuma tecla 
for pressionada, o valor da função será uma string va- 
zia. Veja as linhas 108 e 101 da figura 3.3 . 

A grande vantagem dessa função reside no fato 
de ela aceitar qualquer tecla ou combinação com as te- 
clas CTRL, SHIFT, LGRA { GRAPH ) 8 RGRA (GODE). 

A título de ilustração apresentamos na figura 
3.2 um programa que fornece os códigos ASCII para cada 
tecla ou comblnaçao de teclas pressionadas. 

Figura 3.2 - Uso de METI. 

100 1$ > INKEY* 

101 IF l$a"** THEN GOTO 100 

1 02 PftINT ASG( 10} 

103 GOTO 100 


Observe que quase todos os códigos ASCII des- 
de o 8 até o 255 são possíveis de serem obtidos pelo 
teclado. Observe também que o tradicional CTRL-C que 
Interrompe a execução de programas, não tem o mesmo 
efeito neste caso. 


iflPUT - Introduz o valor de uma variável 
através do teclado. 

Este comando interrompe a execução do progra- 
ma e permite que novos dados sejam fornecidos ao pro- 
grama, através do teclado. 

Dos comandos de entrada da dados, este é o 
mais empregada nos programas, pois permite. 

- Antepor uma frase para orientar o usuário 
quanto ao dada. seu tipo ou unidade em que o mesmo de- 
ve ser fornec - ‘o. 

100 INPUT "Area do local em m^.-AREA 


31 



- Aquilo que é digitado no teclado é impresso 
na tela do vídeo, permitindo a edição da informação. 

- Os dados numéricos são converti os e arma* 
zenados diretamente nas variáveis, 

- Diversas informações diferentes podem ser 
introduzidas por apenas uma única instrução. 

A execução da programa da figura 3.3 deverá 
produzir algo como o apresentado na figura 3.3 . 

Figurs 3-3 - Uso de ÍNPUT- 

188 INPUT "Nome, Idade, Peso e Sai mT;N$, I ,P,B$ 

10t PRINT "nome = ”*N$ 

102 PRINT "idade ="; l 

103 PRINT "peso =";P 
103 PRINT "bairro = ”;B$ 


Figura 3.4 - Tela Obtida Apés o t)50 do Frograia INPUT- 



0 uso deste comando em programas "'profissio- 
nais” apresenta algumas restrições operacionais difi- 
cultando, em multo, a digitação das informações. Veja- 
mos algumas delas. 

A vírgula não pode figurar como parte da mi 

formação. 

0 comando? 

100 IKPUT "EnderectTíA* 

deveria, do ponto de vista do usuário, ser respondido 
com? 

Endereço? Av„ Brasil* 3.567 

Porém, ao se pressionar a tecia RETURN, será 
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apresentada a seguinte mensagem de erro: 


?Eitra ignored 


indicando que o computador considerou que fo- 
ram digitadas duas informações distintas, como se es- 
tivesse executando uma instrução do t i po 5 

180 INPUT "Endereco*';AÍ,B* 

quando a informação "Av, Brasil" seria associada à va- 
rtávei Aí e a outra informação "4.557" seria associada 
à var i áve I B$< 

Porém, o programares tá esperando a entrada de 
apenas uma única informação. Daí a resposta do nnmpu- 
-3 dor, dizendo que a informação extra, ou adicional, 
não foi considerada. 

Outra restrição importante, deste comando, é 
que ele sá aceita informações compostas apenas com os 
caracteres que íenfoam uma representação gráfica na ta- 
bela ASCII. Os códigos que não possuam uma represen 
tâCsO grafica, tsis como o TÁB, o ESC, o espaço em 
branco no início da informação e todos os códigos ge- 
rados em combinação com a tecla CTRL são, normalmente, 
desprezados peio comando INPUT, 

Desse modo, fica dífícii a programação de si- 
tuações em que o usuário percebeu, depois que a tecla 
RETURN foi pressionada, que uma determinada informação 
TC* digitada com erros e deseja voltar a um estãg i o 
anterior para poder corrigir o dado que foi fornecido. 


- Lê uma quantidade especificada de 
caracteres introduzidos pelo tecla- 
do. 

Esta função, parecida com o comando INPUT, 
permite que uma informação de comprimento determinado 
seja fornecida ao programa. 

Embora parecida com o comando INPUT, apresen- 
ta as seguintes diferenças* 

- Não bã a necessidade de se pressionar a te- 
cia RETURN ao final da Informação. Isso e multo bom, 
pois e uma tecla a menos que o usuário terá que digi- 
tar, mas obriga a que todos os dados tenham o mesmo 
comprimento. A título de exemplo, veja o programa da 
figura 3.5 . 
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F í gur a 3.5 - Uso do coiando INPUTí. 

1MB PRINT "Sigla do Estados”; 

181 ESS = INPUTÍ (2) 

1*2 PRINT 

183 PRINT "Foi digitados ";ES$ 

- 0 comando aceita todos os códigos da tabela 
ASCII, mesmo aqueles que não possuem representação 
gráfica, tais como a tecla TAB. ESC e os códigos gera- 
dos pela associação com a tecla CTRL. 0 programa da 
figura 3.6 fornece os mesmos códigos ASCII que o pro- 
grama apresentado na função INKEYJ (figura 3.E). 

Figura 3.4 - Uso do IHPUfl. 

188 1$ = INPUTÍ (1 ) 

101 PRINT ASCÍIÍÍ 

182 liÜTO 188 

- Não é possíwel a colocação de alguma mensa- 
gem para orientar o usuário. Nos casos em que a mensa- 
gem é imprescindível, o programador deve utilizar o 
comando PRINT. 

- As teclas digitadas não são apresentadas no 
vídeo, de modo que se torna quase impossível a digita 
cão de dados, enceto em casos de digitação de senhas, 
quando se deseja justamente isso. 


L I NE INPUT - Associa um dado introduzido peio 
teclado a uma variável strlng. 

Esse comando interrompe a execução do progra- 
ma e permite que novos dados sejam fornecidos ao 
oroqrama, através do teclado, como no comando INPUT. 

As diferenças, em relação 8d comando INPUT 
são as seguintes: 

- Somente uma única informação pode ser for- 
necida a cada comando. Caso a instrução a seguir seja 
executada, será produzido um Erro de Sintaxe. 

188 UNE INPUT "Noae a Idade”; N$, lí 

- A vírguia pode fazer parte da informação. 0 
programa da figura 3.7, guando executado, deve produ- 
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zir o resultado da figura 3.9 . 
Figura 3.7 - Uso do coisamfo LINE INPUT. 

100 LINE INPUT ”Endereço="; E| 

101 PRINT E$ 


Figura 3. ES 


Efidereço= Av.Brasí I .4.567 
Av„ Brasil, 4.567 

Oi f arantemente do comando INPUT, neste caso, 
a informação completa, incluindo-se a vírgula, é as- 
soe i aba à variável A$. 

- As informações são tratabas, sempre, como 
strings, de modo que as informações numéricas devem 
ser convertidas pelo programa. Veja o programa da fi- 
gura 3.9 . 

Figura 3,9 - Conversão de st r i ng 5 para núneros. 

100 UNE INPUT "Taxa de juros=”;T$ 

101 TJ = VAL(TS) 

- O comando só aceita os caracteres que pos- 
suem representação gráfica na tabela ASCII, não acei- 
tando as tecias do tipo ESC, TAB e os códigos gerados 
em combinação com a tecla CTRL. 

- Aceita os espaços em branco digitados no 
início da i nformaçao. 


POS - indica a abeissa X que o cursor ocupa, 

Esta função nos fornece o número da coluna em 
que está posicionado o cursor. Os valores possíveis 
s i tuam-se entre 0 e 33. 

Pode ser útil em situações de escolha de uma 
das alternativas apresentadas por um menu de opções. 

Exemplo: _0 programa da figura 3.18 apresenta 
uma teia com 4 opções, onde o usuário deve deslocar o 
cursor até a upção desejada, com o auxílio das teclas 
do cursor, em seguida, pressionar a tecla RETLIRN, 
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Figura 3.18 - Uso da função POS. 

100 cls 

1 01 PR INI ” Opcao 1 +" 

182 PRINT " V 

163 PRINT "Opcao 2 + !" 

104 PRINT ” * !" 

105 PRINT "Opcao 3 + ! I” 

1 08 PRINT " \ I !” 

197 PRINT "Opcao 4 — + ! ! !" 

198 PRINT " * ‘ ! »" 

169 PRINT " A B C ff" 

110 Cfí = 1 

111 LOCATE 7+3*CR , 9 .PRINT 

112 LOCATE 7+3*CR, 10. PRINT "I" 

113 LOCATE 7+3*CR, 11. PRINT 

114 1$ = INPUTf (1 ) 

115 IF ASC (lí) = 13 THEN GOTO 127 

11 B LOCATE 7+3*0* , 9= PRINT " " 

117 LOCATE 7+3*CR, 10. PRINT " " 

118 LOCATE 7+3*CR. 11 «PRINT " ” 

119 IF A5C (lí) O 28 THEN GOTO 123 

126 CR = CR + 1 

121 IF CR > 4 THEN CR = 4 

122 GOTO 111 

123 IF ASC ( lí) <> 23 THEN GOTO 111 

124 CR - CR - 1 

125 IF CR < 1 THEN CR = 1 
12B GOTO 111 

127 CR = INT[(POS(0>~7)/3) 

128 LOCATE 9.14 

129 PRINT ”Voce escolheis a opcan”;5-CR 
139 END 


Comentar i os. 

199 Apaga toda a tela para a apresentação das 

opções . 

101-109 Apresenta as 4 opções. 

110 Define um valor inicial para a variável CR. 

que vai indicar o número da opção e será 
empregada junto com o comando LOCATE para po- 
sicionar o cursor . 

111-113 Desenha a seta que indica uma das opções. 

114 Aguarda que seja pressionada alguma tecla e 

armazena o código da tecla pressionada na 
var íáve i I í . 
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115 Verifica se a tecia pressionada é a tecla 

RETURN. 

116-118 Apaga a seta indicativa, imprimindo brancos. 

119 Verifica se a tecia pressionada foi a tecla 
*T cujo código A5CI I é £8. 

120 Incrementa a variável CR. 

121 Verifica se a variável CR está dentro do li- 
mi te super i or . 

122 Volta para repetir o ciclo. 

123 Verifica se a tecia pressionada é a tecla 

cujo código ASCII é 29. 

124 Decrementa a variável CR. 

125 Verifica se a variável CR está dentro do 

limite inferior. 

126 Volta para repetir o ciclo. 

1 27 Obtém_ o valor da opção escolhida a partir da 
posição do cursor , obt I da com a função POS. 

128 Posiciona o cursor. 

129 imprime o número da opção escolhida, 

130 Encerra a execução do programa. 


ROTINA para a entrada de dados 

Os comandos e funções que permitem a entrada 
de informações pelo teclado apresentam características 
próprias de funcionamento. 

De forma resumida, tais características sio 
as seguintes: 

CSRIIN - Fornece apenas a posição vertical do 
cursor, não serve para a digitação de dados. 

INKEVíl - Aceita qualquer caractere do tecla- 
do, porém não mostra no vídeo a tecla pressionada. 

INPUT - Não identifica os códigos produzidos 
em combinação com a tecia CTRL e não aceita a vírgula 
no meio da informação. Mostra no video as Teclas 
pressionadas . 

INPUT$ - A informação deve ter um comprimen- 
to fixo, e o que for digitado não é mostrado no vídeo. 

LtNE INPUT - Aceita a vírgula, porém não re- 
conhece os códigos produzidos em combinação com a te- 
cla CTRL. Mostra no vídeo, as teclas pressionadas. 
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POS - Fornece apenas a^posição horizontal do 
cursor, não serve para a digitação de dados, 

A escolha do comando adequado para a entrada 
de dados, depende do tipo de informação que será digi- 
tada para o programa. 

As teclas, sozinhas ou combinadas com outras 
do tipo SHIFT, CTRL, CODE OU GHAPH, (Oü RGRA e LGRA), 
produzem códigos que são enviados peio teclado para a 
memór ia do computador . 

Tais códigos são combinações de 8 bits, com 
significados padronizados pela convenção ASCII, 

Embora o teciado tenha a capacidade de gerar 
E56 códigos distintos, nem sempre desejamos, ou neces- 
sitamos, de todos eles. 

Veiamos, pera cada situação de tiigitacao de 
informações, as faixas de códigos que possam interes- 
sar aos programas, 

Na digitação de Dados Numéricos, estaremos 
fornecendo ao programa, informações compostas pela 
combinação dos algarismos 0 a 9 e símbolos + - - , 
Observando a tabela ASCII, notamos que esses símbolos 
correspondem aos códigos &H2B a &H39. 

Na digitação dc Dados Alfabéticos, somente 
maiusculas, estaremos fornecondo ao programa infor- 
mações * compostas pela combinação das letras de A a l> 
que correspondem, na tabela ASCII, aos códigos de &tM1 
a &H5 A , 

Na digitação de Dados Alfabéticos, inclusive 
minúsculas, estaremos fornecendo ao programa Informa- 
ções compostas pela combinação das letras de A a z, 
que correspondem, na tabela A5CI I, aos códigos de ÈttHl 

a &H7 Ap 

Na Escolha de Opções, usamos apenas as tecias 
A e T para posicionar o cursor sobre a opção desejada 
e mais a tecla RETURN para indicar a escolha. Neste 
caso, os códigos que ncs interessam são os seguintes: 

&H1 Ê para a tec I a l 
ficHIF para a tecla | 

&H0D para a tecla RETURN 

Como se vi, em cada situação de digitação de 
Informação, a quantidade de códigos distintos é iimi^ 
tada e bem inferior aos 256 possíveis de serem gerados 
pelo tec i ado. 

Embora as situações de digitação de informa- 
ções sejam distintas e possam até ser representadas 
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por _ te I as distintas (uma tela só para a Escolha de 
Opções, outra para a Digitação dos Dados e outra para 
dar comandos para o programa), seria interessante, 
misturar determinadas teclas de controle, possibili- 
tando 3 digitação de comandos em situações em que o 
programa espera a digitação de algum dado do problema. 

Um exemplo disso seria na digitação da área 
do Terreno em um programa de Topografia. A teta de 
digitação da área poderia ser algo como o apresentado 
na figura 3,11 ou algo mais completo como o ilustrado 
na figura 3. 1 E , 


Figura 3.Ü - Prograwa de topografia. 



iüürí 2A2 “ Prograna de topografia. 


FRGSRftflft DE TQPOSRftFIfl 
Fornecer a área do terreno em m* : 


Fara o usuário que estiver utilizando o pro- 
grama peia primeira vez, a primeira teia poderá pro- 
vocar uma dúvida quaota à u n f tf a d e em que 3 drea deva 
ser fornecida ao programa, 

^ ara Q usuário que já estiver familiarizado 
jüm 0 programa, a segunda tela poderá provocar uma fa~ 
diga visual pelo excesso de informações apresentadas 
na tela do video» Além disso, em programas cuja Enfra- 
Dados sejaconstrtu ida por um conjunto grande de 
dados, a indicaçao completa do tipo de informação em 
cada campo, poderá fazer com que os dados necessários 
nao^eaibam em uma única tela, dificultando a sua díQi — 
t açao * 

Uma das maneiras de contornar essas situações 
seMa 0 emprego de uma tela simples e a menção da uni- 
dade da área no manual do programa e obrigar os novos 
usuários a lerem o manual. 

Outra maneira, mais elegante, é introduzir 
uma tecla especial, por exemplo CTRL+A (A de auxílio) 
qu&, quando pressionada, com o cursor em qualquer dos 
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ÁREft 


. 

FROGRAMh &E TOFOSRFiFIF 

r .:' , ' • - . 

. . . ■' ■■ 


A ár&a do terreno deve ser 
■fornecida em metros quadrados- 


Desse modo, a tela de digitação de dados fica 
mais enxuta, contendo apenas as explicações mínimas 
necessárias, facilitando a sua visualização. As demais 
explicações adicionais que e ve nt uai mente possam vir a 
ser necessárias não são normal mente apresentadas no 
vídeo, - aparecendo somente quando a tecia CTflL-A for 
press i onada , 

Como conjugar a entrada de dados com a digi- 
tação de comandos para o programa? 

Podc-se elaborar uma Rotina de Entrada, e fa- 
zer com que em todas as situações de entrada de dados 
ou de digitação de comandos para o pFograma, a entrada 
seja feita por essa rotina. 

Vejamos quais seriam as especificações para 

essa rot i na: 


1 - Permitir a entrada dos dados que representam a 
vida real, tais como o nmne de pessoas, endereços, nú- 
meros e outros. 

E - Permitir que em situações em queo tamanho da 
informação seja previamente conhecido não seja neces- 
sário pressionar a tecia 8ETURN. Por exemplo, as si- 
glas dos Estadas brasileiros são formadas por 2 le- 
tras. 

3 - Permitir que tecias especiais e de controie 
sejam pressionadas e devolver ao programa o código da 
tec I a press i orada . 



Para poder obedecer a essas especificações, 
iremos desenvolver uma rotina baseada no comando 
I NKEY$, por ser o comando que abrange toda a faixa dos 
códigos ASC I I . 


1 - 0 núcleo básico da rotina é formado pela ins- 
trução ; 

320 Kt « INKEYt , (F K»="" THEN GOTO 320 

quando o computador aguarda até que uma tecla qualquer 
sei a pressionada. 

2 - Logo que uma tecla for pressionada, a rotina 
deve verificar se essa tecla é ou não uma tecla de 
controle, representada por um códigos ASCII entre 0 e 
31 , com a instrução; 

338 IF ASG( K$) < 32 THEN RETUftN 

3 - Não sendo uma tecia de controle, o símbnfn di- 
gitado deve ser adicionado àquele anter i ormente digi- 
tado, e armazenado na string k$-„ 

348 Aí = A* + K| 

4 - A tecia pressionada deve ser impressa no ví- 

deot 

345 PNINT Kt; 

5 - A string A$, sendo do tipo acumulativa, deve 
ser "zerada" no início da rotina: 

388 A$ = 

6 - Verificar se a string de entrada A$ já atingiu 
o comprimento esperado para a informação. O comprimen- 
to máximo da string deve ser previamente fornecido na 
var iáve I CS : 

350 IF LENtAI) = CS THEN RETUBN 

7 - Não tendo, ainda, atingido o comprimento espe- 
rado, a rotina deve voltar para a recepção de mais uma 
tecla: 


368 GOTO 328 



B - A rotina deve permitir a correção de algum ca- 
ractere que tenha sido digitado erradamente. A indica- 
ção de correção pode ser feita com a tecla Back Space 
cujo cóti i 30 ASCI I é 0 ; 


328 IF ASCOCÍÍiB THEN PRINT CHR$(B)" ”CHR$Í 8) - 

:A*=IEFT$(A$,LEN(AÍ)-1Í 
:GOTO 320 


3 - A rotina deve verificar se foi pressionada a 

tecla RETURN para finalizar o dado. A tecla RETURN 
possue o cód igo 13 : 

IF A3CÍKÍJ = 13 THEN RETURN 

A rotina é apresentada na figura 3.14 . 


Figura 3.14 - Rotins para checar RETURN. 


306 A$ c 

328 K$ = INKEYI : IF K$='"' THEN GOTO 320 

324 IF ASC{K$) = 13 THEN RETURN 

32B IF ASC(KÍ) = 8 THEN PRINT CHR$(8)” "GHRÍÍBh 

= A$=LEFT$(A$.LEN{A$M) 

:GOTO 328 

336 IF ASGtKf ) < 32 THEN RETURN 
348 A* = A$ + K$ 

345 PRINT K$ ; 

358 IF LEN{ A|) = CS THEN RETURN 
366 GOTO 320 


Ê claro, que as especificações da rotina não 
são somente aquelas acima apresentadas. 0 programador 
deverá, em função daquilo que e!s desejar, elaborar 
suas próprias especificações. 

Por enquanto, para sedimentar as idéias apre- 
sentadas, teste o funcionamento da rotina com um pro- 
grama do tipo apresentado na figura 3,15 , 

As teclas de controle, devem, na medida do 
possível, estar relacionadas com as situações práticas 
que podem ocorrer . 
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Figura !3.i5 - Teste da rotina para checar RETURM. 


108 CLS 

101 PHINT "PROGRAMA TESTE" 

182 LOCATE 8,18 = PRINT "AREA=~ 

183 LOCATE 6,10,1 

184 CS=7 

165 GCSUB 300 

186 LOCATE 0,28 : PRINT STRNG$(40," "J 

187 IF A$="" THEN IF ASC{Kf)<32 THEK LOCATE 0,20 

: PRINT "FOI OIGITADOiCONTROL 
CHR*( ASCt«í+G4)"=” 

168 IF AIO"" THEN LOCATE 8,20 

: PRINT "FOI OIEITADO:"A$" : " 

109 GOTO 103 


Assim, sugere-se adotar a seguinte convenção; 

Ctrl+A Auxílio. Apresenta uma orientação de como 
proceder, 

Ctrt+C Posiciona c cursor no último campo de di- 
gitação. 

Gtri+E Posiciona o cursor nn primeiro campo de 
digitação . 

GtrltH Move o cursor para o campa anterior. 

Ctri+L Apaga o resta à direita do cursor. 

Ctrt+Q Move o cursor para cima. 

Gtrl+U Move o cursor para o campo seguinte. 

Ctrt+X Avança meia página. 

Ctri+Y Limpa todos os campos de digitação. 

Ctrl+Z Move o cursor para baixo. 

Analise as funções que as teclas CTRL desem- 
penham em outros programas, inclusive aqueles que fo- 
ram adquiridos prontas e procure padronizar as funções 
dessas teclas, para facilitar a vida do digitador. 

Na escolha das teclas de controle, procure 
levar em consideração a disposição das teclas no te- 
clado. As teclas CTRL+A, por exemplo, podem ser acio- 
nadas com uma só mão, enquanto que as teclas GTRL+P só 
podem ser acionadas com ambas as mãos. 

Procura também, usar a mesma convenção de te- 
clas em todos os seus programas, pois é terrível a di- 
gitação de dados quando em um programa GTRL+S signifi- 
car uma coisa e em outro programa o mesma GTRL+5 sig- 
nificar coisa bem diferente. 
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EXEMPLO PRATICO 


Vamos desenvolver um exemplo pratico para a 
d i g 1 tação dos dados . 

A lota que deve ser usada para a digitação 
dos dadas dava ter o aspecto da figura 3.16 , 

Os campos para a digitação de dados sao apre- 
sentados íta tabela da Figura 3.17 . 

Com relação às teclas de controle a serem 
utilizadas no programe, são apresentadas juntamente 
com sua descrição na tabela da figura 3.18 . 

A figura 3.19 mostra os códigos ASCII das te- 
clas de controle utilizadas no programa. 

Finalmente, a listagem completa do programe 
exemplo é apresentada na figura 3.28 . 

Figura 3, 


01 

02 

03 

04 
06 
06 
07 
09 

09 

10 


1 2345678901 2345678981 23456 7B901 234567890 


íó - Tela para diqitaçao dos dados, 

1 2345678981 234567B901 2346678901 2345G7890 

M CADASTRAMENTG tt# 

Data :XX/XX/XX 

Nome e xxxxxkxxxkxxxxxxxxxxxxkxx 
| End , * xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

Cidade* XXXXXXXXXXXXXXXXXXXX Es t ado : XX 


Figura 3,i7 - Caipos para digitação. 


SEQUÊNCIA 

FINALIDADE 

TAMANHO 

NOME DO CAMPO 

1 

Dia do mas 

2 

D 1 A$ 

2 

Número do mes 

2 

ME 5$ 

3 

Número do ano 

2 

ANO* 

4 

Nome 

25 

N0M$ 

5 

Endereço 

38 

EDR$ 

6 

Nome da cidade 

20 

CIOS 

7 

Sigla do estado 

2 

ESTS 



Figura 3*16 - Teclas tfe controla 


TECLA 

FUNÇÃO 

CTRL i A 
CTRL + P 
CTRL + L 
RETUFÍN 
BACK 5PÀCE 
SETAS 
HOME 
ESC 
? 

Auxílio. 

Próximo - avança para o próximo registro. 
Limpeza. 

Finaliza a entrada do dado. 

Volta o cursor apagando. 

Movimentam o cursor . 

Leva o cursor para a primeiro campo. 

Apaga o campo onde está o cursor. 

Mostra as teclas de controla, 


A combinação de teclas CTLfi+A (Auxílio) faz 
surgir uma explicação sobre o tipo de dado que deve 
ser digitado no campo onde está o cursor* 

A pressão simultânea das teclas CTFíLtP (Pró- 
ximo) finaliza a entrada de dados, mostra um resumo do 
que foi digitado, Umpa os campos de digitação de da- 
dos e posiciona o cursor no segundo campo (Nome) para 
a digitação dos dados da próxima pessoa. O primeiro 
campo é saltado, para não ter que se digitar a data 
novamente * 

Em um programa completo, apus as teclas 
GTRL+P , seria providenciada a gravação dos dados digi- 
tados em um arquivo em disco. No presente programa, 
onde procura-se ilustrar apenas a parte de digitação 
de dados, o programa irá mostrar, em um outra tela, 
todos os dados digitados. 

A combinação GTRL+L (Limpeza) limpa os campos 
de digitação de dados e posiciona o cursor no primeiro 
campn . 

Â tecla RETURN finaliza a entrada do dado e 
posiciona o cursor no próximo campo. 

A tecla BACK 5PAGE faz o cursor voltar para a 
coluna anteri or apagando o caractere que a I i se encon- 
trar . 

As teclasse 1 posicionam o cursar no próxi- 
mo campo. Gaso o cursor esteja no Oiti mo campo da teia 
será deslocado para o primeiro campo. 

As teclas-^ a k posicionam o cursor no campo 
anterior, Gaso o cursor esteja no primeiro campo da 
teia, não haverá movimento, 

HOME posiciona o cursor no primeiro campo da 


tela. 




Quando o cursor estiver nt> meio de um campo, 
ESC apaga o que foi digitado e posiciona o cursor no 
início do campo. Quando o cursor estiver no primeiro 
campo, volta à teia anterior. Corro não há teta anteri- 
or. finaliza a execucão do programa. 

Figura 3 .L? - Cúdigos ASCII das Uclas de controle. 


TECLA DE 
CONTROLE 

CÓDIGOS 
MSX 1 IBM PC 

CTRL+A 

A u x í ! i o 

1 

1 

C7RL+P 

Próximo 

16 

16 

GTRL+L 

L i mp c z a 

1 2 

12 

RETURN 

Finaliza 

13 

1 3 

— s -m. 

Esquerda 

8 

3 

►- 

Direita 

28 

077 

f 

Próximo 

31 

080 


Esquerda 

29 

075 

k 

Anter f o r 

30 

073 

HOME 

Início 

11 

071 

ESC 

Esqueça 

37 

27 

? 

Teclas 

63 

63 


figura 3.20 - Listagea do progr aaa-pxsiap lo. 


T(H * EXEMPLO . BAS - Testa Hotina de Entraria 

103 ' 

104 ' R.M.Watanabe 30/03/07 

105 ’ 

300 ' - - 

301 ' Parâmetros Iniciais 

303 ' — 

310 niH HC{ 7 ) .VCf 7 ) . ZCf 7 } 

213 HC(1 1= 5=VC(1 )=4=7C<1 )= 3 

714 HC (Pt- 8.VC(S)=4.ZC{2)> ?- 

716 HC{ 3 ) =1 1 ; VCf 3 ) =4 . ZCf 3 ) = 2 

318 HC(4>= 6:VC(4)-fi: Z0(4)=35 

330 HC(5)= 5:VC(5)=7:ZCf5)=30 

333 7 -.VCf B 1 =8 : ZCf 6) =30 

374 HC(7)=35iVC(7l=3: ZC( 7} = 3 

330 Í1IA$ = SPACE$(3) 

333 ME5$ = SPACE$(3) 

334 AN()$ = SPACE${2 1 



236 NOM$ = SPACE$(25) 

238 EDR$ = SPACE$í30l 
2-10 CíO$ = SPAGE$(28) 

242 EST$ = SPACEÍÍ2J 

244 CR = 1 

250 GOTO 400 

300 A$ = : LOCATE , ,1 

320 K$ = INKEY$; I F K$="" THEN GOTO 320 

322 1 F ASC( K$) = 13 THEN RETURN 

324 tF A5C( K$)= 8 THEN PR1NT CHR$(8)" "CHRSf R > 

AS=LEFTÍ(A$,LEN{ A$)-1) ; 
GOTO 3PB 

328 IF ASCtKÍÍ = S3 THEN A$=KÍ: RETURN 
330 IF ASC( K$ ) <32 THEN A$=K$ : RETURN 
340 A$ = A$ + K$ 

342 PRtNT K$ ; 

350 IF LEN(A$I = CS THEN RETURN 

352 GOTO 320 

460 * 

401 ' Desenha a Tela 

402 * - - 

410 CLS 

411 PRINT 

412 PRINT SPCÍ10)"** GADASTRAHENTO **” 

413 PRINT 

414 PRINT 

415 PRINT "Data: / / =” 

418 PRtNT 

417 PRINT "Nome :"SPC( 25 )" s" 

418 PRINT "End. ; ”SPCÍ38r=" 

419 PRINT 

420 PRINT ”CÍ dade:"SPGÍ20)".- Estadn = 

500 ■ 

502 ' Mostra Valores 

504 * 

510 LOCATE HCm.VCÍI ):PR!NT DIA* 

512 LOCATE HC(2) , VCÍ 2):PR INT HFS* 

513 LOCATE HCÍ31 . VCÍ 3) = PRINT ANO) 

514 LOCATE HC(4) , VCÍ 4| : PRINT NOM) 

515 LOCATE HCÍ 5 ) , VCÍ 5 > = PR f NT EDRÍ 

518 LOCATE HCÍ6) . VCÍ 6 hPRINT CIO) 

517 LOCATE HC{7) , VCÍ 7h PRINT EST) 

800 * — 

602 * Entrada de Dados 

804 1 

810 LOCATE HGÍCR ) , VCÍ CR) 

612 CS = ZCCCRIíGOSUB 300 

840 IF LENÍAÍ) = 8 THEN GOTO 710 
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fi68 |F ASG(A$Í - 1 THFN ON C11 GOflIÍR 1110,1120. 

7130.1140,1150.1160.1170: 
COTO 600 

652 IF ASCUS1 = 1 E TMFM GOTO 800 

654 IF ASCUS) = 12 THFN GOTO 230 

656 IF A5C(A$) = 13 THFN COTO 718 

658 IT A5C{ AS ) = 8 THFN GOTO 720 

G60 IF ASC{ A$ ) = 28 THFN GOTO 710 

66? IF ASC(A$> = 31 THFN GOTO 710 

664 IF A5C(A$) = 29 THFN GOTO 720 

GGR IF AGC(AS) = 30 THFN GOTO 720 

668 IF A5C(A$) = 11 THFN CR=1=GOTO 600 

670 IF flSCf A$ > a 27 THEN ON CR G OSII0 1210.1220, 

1 23® . 1 2*10 . 1 250 , 1 260 , 1 270 r 

GOTO 500 

672 IF ASCfASl * 63 THFN GOTO 1309 

R74 11 ASCmi < 32 THFN GOTO 600 

676 ON CR GOSUB 730,740,750.760.770.780.790 
678 GOTO 710 

710 ’ > Avança o Cursor 

712 CR = CR + 1 

714 IF GR > 7 THEN CR = 7 

716 GOTO 600 

720 ' > Retrocede o Cursor 

722 CR = CR - 1 

724 IF GR < 1 THEN CR = 1 

726 GOTO G80 

730 DIAS = AS 

732 HFTLIRN 

740 MES$ = A$ 

742 RFTURN 

750 ANOS = A$ 

762 RFTURN 

760 NOH$ ^ AS 
762 RFTURN 

770 FDR§ = A$ 

772 RFTURN 

7B8 CIOS = AS 
782 RFTURN 

730 ESTS = A$ 

792 RETIIRN 

880 ' > Finatizacao da Entrada 

810 GL5 
812 PRINT 
81 4 PR I NT 

816 PR INI "FORAM DIGITAD05=" 

818 PRINT 

820 PRINT ”DATA=”D1 AS"/”MESS"/"ANOS 
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82? 

B24 

82G 

828 

838 

832 

834 

835 
838 
848 
1180 
1110 
1112 
1120 
1122 
1130 
1132 
1140 
1142 
1150 
1152 
11S0 
1182 
1170 
1172 
1180 
1182 
1184 
1186 
1188 
1138 
1132 
1134 
1136 
1138 
1210 
1212 
1220 
1222 
1230 
1232 
1240 
1242 
1250 
1252 
1280 
1282 
1270 


PHINT "NOME~”NOM$ 

PRINT *' END . =” EDR$ 

PRINT "CfDADE="GID$ 

PRINT "ESTADO="EST$ 

LOCATE 0,13 

PRINT "Pressinne qquer tecla" 

Kí = INKEY$: IF K$="” THEN GOTO 834 
LOCATE 0,19 
PRINT SPCÍ30] 

GOTO 230 

-> Mensagens de Auxilio 

MSGÍ = "Digitar o dia entre 01 8 31" 

GOTO 1180 

MSG$ - "Digitar o numero do mes entre 81 e 12” 
GOTO 1180 

MSGÍ = "Digitar o ano” 

GOTO 1180 

MSGÍ - "Digitat o nome com ate 25 letras" 

GOTO 1180 

MSGÍ = "Digitar s endereço com ate 30 caracter 
GOTO 1180 

MSG$ = ”Nume da ciade com ate 20 caracteres" 
GOTO 1180 

MSC$ = "Oigitar a sigla do estado" 

GOTO 1180 

I OCATE 0,19 
PRINT MSGÍ 
LOCATE 8,2® 

PRINT "Pressione qquer tecla” 

Kí = INKEYÍ : I F K$=”” THEN GOTO 1188 
LOCATE 8,19 
PRINT SPCíLEN(M5GÍ)) 

LOCATE 8,20 
PRINT SPGt 30) 

RETURN 

01 Aí = SPACE$(2) 

RETURN 

MES$ = SPACE$(2) 

RETURN 

ANOÍ = SPACEÍC2) 

RETURN 

NOM$ = SPAGEÍ ( 25 ) 

RETURN 

EDR$ = SPAGEÍ (30) 

RETURN 

Ciní = SPACE$( 20 ) 

RETURN 

ESTÍ = SPACEÍÍ2) 



1272 RETURN 

1300 ’ > Expl tcacoes 

1310 CLS 

1312 PRINT "As teclas de controle sao=” 

1 314 PRINT 

1318 PRINT "ctri-A Apresenta uma oricntacao” 

1 318 PRINT "Ctrl-P Finaliza dados” 

1320 PRINT "Ctrl-t limpa o campu” 

1322 PRINT "RFTURN Entrada do dado" 

1324 PRINT ”« ou BS Retrocede o cursor” 

1328 PRINT > oy v Avança o cursar” 

1328 PRÍNT ou ‘ Retrocede o cursor" 

1330 PRINT "HOME Volta o cursor” 

1332 PRINT ”FSC Apaga o campo" 

1334 PRINT **? Apresenta esta cxplicacao” 

1336 K$= I NKEY$ s I F K$=”" THEN GOTO 133G 
1338 GOTO 408 


ORIENTAÇÃO AO DIGITADOR 

Não deixe o coitado do digitador desamparado. 
Na medida do possível, faça cum que o programa forneça 
or i entações . 

Uma mensagem do tipo; 

"Pressione qualquer tecla para continuar." 

parece, a um programador, tofalmente dispensável, po- 
rém, existem situações em que o programa não fornecen- 
do nenhuma orientação, provocará dúvidas no usuário 
quanto ao procedimento a seguir. 

Para facilitar a introdução de tais mensagens 
no programa, sugere-se elaborar uma rotina do tipo 
apresentado na figura 3.21 . 

Figura 3.2Í - Rotina "Aguarda Suaiquer Tech". 


5200 ' 

5202 ' QQUER.FNT = Aguarda Qqser Tecla 

5204 • — — — — 

5205 G=POS( 0 } sHsCSRI I N 

5206 PRINT "Pressione qquer tecla para continuar 
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5810 TIME = 8 
5818 K$ = INKEYI 

5814 IF TIME > 800 THEN GOSliB 5038 * GOTO 5818 

5816 IF K$ a THEN GOTO 5818 

5817 LOCATE C, SPRINT SPACEIH0) 

581 8 RETURN 


SAVE "QQUER . FNT" , A 


Salvar esta rotina para ser utilizada no sis- 
tema apresentado no capítulo 3. 

Além dessa tipo de orientação ao usuário, o 
programa poderá emitir sons de tonalidade e duração 
diferentes para retratar situações distintas. 

Existem situações em que o usuário cometeu 
algum erro de digitação, outras em que o usuário, dis- 
traído, deve ser chamado a atenção. 

Uma rotina do tipo apresentado na figura 3.88 
poderá proporcionar sons adequados para cada uma des- 
sas situações. 


Figura 3,22 - Rotina de Sons, 


5000 ’ 

5002 1 SONS. FNT = Rotinas de Sons 

500*4 ' 

5010 ’ — > Som ,je y a j ma | 

5018 PLAY ”L1 3ísL 9c” 

5814 RETURN 

5028 ' > Som d c Sjg a 

5088 PLAY "LIEb” 

5034 RETURN 

5830 ' > Som ds Atencao 

5038 PLAY ”05V9LSgR9dV8” 

5834 RETURN 


SAVE "SONS. FNT, á 


Salvar esta rotina para ser utilizada no sis- 
tema apresentado no capítolo 3. 
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ROTINA PARA A ENTRADA DE DADOS 


A seguir é apresentada uma rotina genérica 
para a entrada de dados. Veja a figura 3.23. 

Figura 3.23 - fiotma de Entrada de Dados. 

1000 ' 

1802 ' nOTEMT.m - Rotina de Entrada 

1004 ’ 

1006 A$=*"\PT=8 

108B TOCATE . ,1 
1010 Ü01 

1 812 K$s |RKEY$: I F Kl*"” THEN GOTO 1012 
1014 IF A5C{ K$) = B THEN CASO=1 : GÜT0 1040 

1016 IF ASG{ K$)=1 1 THEN CASO=2:GOTO 1046 

1018 IF ASG(K«}=12 THEN CASO=3=GOTO 1040 

1020 IF ASC{K$)-13 THEN CASO=4:GOTO 1046 

1022 IF ASG{ K$)=27 THEN CASO=5:GOTO 1040 

1024 IF ASC(KÍ)=28 THEN GAS0=6 I GQT0 1640 

1026 IF ASC(K*)=29 THEN CAS0-7.G0T0 1846 

1028 IF ASC(K$K32 OR ASC(K$)>127 THEN A*=K$ t 

GOTO 1138 

1 035? A$=AS+K$ 

1832 PT = PT + 1 
1834 PRINT K$; 

1036 IF LEN(A$)=CS THEN GOTO 1138 

1 038 GOTO 1 81 8 

1046 IF PT=8 THEN A$=K$:GÜTO 1133 

1042 ON GASO GOSUB 1648.1868,1078.1088.1106,1118.1128 
1044 IF ASC(K*)-13 THEN PRINT GHR$< B) ; i A$*LEFT0{ A|. PT) , 

GOTO 1138 

1046 GOTO 1 812 
1648 * 

1858 
1852 
1854 
1056 
1058 
1060 
1062 
1064 
1066 * 

10G8 
1878 
1072 
1074 
1076 


— > g = Volta apagaedo 

IF PT < 1 THEN RETURN 
IF PT > LENI A|) THEN GOTO 1138 
PT = PT-1 

A$*LEFT$[AÍ,PTÍ+R!GHT$U$,LEN( A*)-PT-1 ) 
G=P05( 0 ) :M=CSRL I N 

PRINT CHR$( 8)R IGHT0I A$, LEN( A$)-PT )~ 
LOCATE C.HiPRINT GHR$(0); 

RETURN 

> 11 = Cursor no inàcio 

FOR C=1 TO PT 
GOSUB 1128 
NEXT G 

PT=8 

RETURN 


52 



1878 ' > 12 a Apaga o Campo Todo 

1888 FOR C s 1 TO PT 

1885 G0SU8 1128 

1 BBg NEXT C 

1888 PT t 8 

1888 C=P0S{8) 

1888 PRINT SRACE$ÍCS); 

1832 LOCATE G,M:PRINT CHR$(8Í; 

1 898 RETURN 

1838 ' > 13 = Sai da rotina 

1188 IF LEN( A$)<>8 THEN RETURN 

1182 H$=K$ 

1184 RETURN 

118 B ' } 27 s Cursor no fim 

1188 N=CS - PT 

1110 FOR G=1 TO N 

1112 GOSUB 1118 

1111 NEXT C 

1116 RETURN 

1118 ' > 28 s Avança o cursar 

1120 IF PT=XEN ( &$) THEN RETURN 

1122 PRINT CHR${28); 

1 12*1 PT=PT+1 

1126 RETURN 

1128 ' — > 23 = Retrocede cursar 

1138 IF PT<=8 THEN RETURN 

1132 PRINT CHflt(B); 

113-1 PT h PT - 1 

1136 RETURN 

1138 LOGATE , ,8:HETURN 


SAVE "ROTEHT.FNT", A 


Salvar esta rotina para ser utilizada no sis- 
tema apresentado no capítulo s. 
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acesso a 

discos 


Este capítulo apresenta os principais concei- 
tos relacionados com a utilização de arquivos em disco 
magnético, detalha a montagem c a manutenção dc arqui- 
vos sequenciais e randomicns a descreve algumas técni- 
cas para a manipulação eficiente das informações arma- 
zenadas nos arquivos, 

0 disco magnético, comumente conhecido como 
"disquete", é composto de trilhas onde são registrados 
os sinais magnéticos que representam as informações 
armazenadas no disco pelo programa. 

Cada uma das trilhas do disco b dividida em 
setores, havendo uma determinada quantidade de setores 
ao longo de uma trilha e essa quantidade de setores é 
a mesma em todas as trilhas do disco. 

Em um setor do disco pode ser armazenada uma 
quantidade fixa de bytes de informação e essa quanti- 
dade é a mesma em todos os setores do disco, 

a quantidade de bytes por setor, a quantidade 
de setores por trilha e a quantidade de trilhas por 
disco ê fixada pelo sistema operacional, em função da 
tecnologia utilizada na fabricação do disfc drive. 

Dizer que um determinado disk drive possui 
uma capacidade maior de armazenamento que outro signi- 
fica dizer q li e os bytes são gravados em uma densidade 
maior e, para não diminuir a qualidade ou a confiabi- 
lidade dos dados nele gravados, a tecnologia empregada 
na fabricação desse disk drive deve ser mais avançada. 
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0 parirão internacional estabelecido para o 
sistema MSX é o segui n t e = 


- tamanho em polegadas == 3,5 

- quantidade de faces utilizadas por disco - 2 

- qudnt i dade de trilhas por face - 90 

- quantidade de setores por trilha = 9 

- quantidade de bytes por setor = 5ip 


Disso resulta que nos disquetes empregados no 
sistema M 3 X, podemos armazenar 0 totai máximo de 
737,280 bytes, ou seja, 720 Kbytes, 

No Brasil, os primeiros drives usados com os 
mx foram os mesmos já existentes para 0 IBM-PC, de 
h/dh polegadas e 40 trilhas por face, 0 que acarreta 
uma capacidade de armazenamento de 360 Kbytes, Os dri- 
ves de 3,5 polegadas só apareceram no mercado nacional 
em 1388 . 

Não se^iluda pensando que todos esses 720 ou 
360 Kbytes poderão ser utilizados para 0 armazename nto 
do informações, pois nem todo 0 espaço do disco é dis- 
poní ve I para arqu i vos . 

0 espaço útil do disco á dividido em 3 áreas 
distintas, cum finalidades específicas. Essas áreas 
são conhecidas como? 

~ área do Sistema Operacional 

- área do Diretório 

- área de Arquivos 

A área do Sistema Operacional contém a parte 
do M 5 XDOS ou CP/M encarregada de manipular as informa- 
ções que transitam entre a memória e 0 disco, Como sa- 
bemos, 0 núcleo principal do Sistema Operacional está 
gravado na memória ROM e esse núcleo interpreta e exe- 
cuta todos os comandos que são fornecidos ao computa- 
dor. Cunectando-se um disfc drive, 0 computador passa a 
poder armazenar informações em discos magnéticos, 0 
que é feito mediante a digitação de comandos específi- 
cos para essa finalidade, A parte do Sistema Operacio- 
nal que interpreta e executa esses comandos fica arma- 
zenada nas primeiras trilhas do disco e durante a ope- 
ração^de inicialização do sistema, comumGnte conhecida 
como " 800 T", ela é transferida para a memória onde é 
integrada ao núcleo principal do MSXDOS ou CP/M, 

A área do Diretório contém os nomes de todos 
os arquivos gravados no disco e os endereços dos seto- 
res utilizados por cada um deles. Na execução do co- 
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mando FILE5 r por exemplo, n sistema operacional con- 
sulta o diretório para saber quais arquivos estão gra- 
vados rio disco e o tamanho de cada um deles. 

Na área de Arquivos são gravados os arquivos 
definidos pelos usuários. Gada arquivo do disco tem o 
seu nome registrado no diretório e as informações do 
arquivo ficam gravadas em setores de tamanho fixo. Um 
arquivo que tenha, por exemplo, 780 bytes de tamanho 
ocupara 2 setores do disco no MSX ou no PC e 6 setores 
no CP/M. 

Toda e qualquer informação manipulada pelos 
programas pode ser armazenada no disco na forma de ar- 
qu f vos. 

Entende-se como "gravação" o ato de se regis- 
trar uma certa informação no disco, isto é, transferir 
a informação que está na memória do computador para n 
disco magnético onde a mesma poderá ficar armazenada 
para sempre. 

Entende -se como "leitura" o ato de se recupe- 
rar uma certa informação gravada anteriurmente no dis- 
co, ista é, transferir paFa a memória, uma certa i n~ 
formação que foi "gravada" no disco. 

Para podermos gravar e ler informações no 
disco, devemos seguir certos proced smentos padroniza- 
dos para garantir que as informações que serão grava- 
das, o sejam em uma posição "conhecida” para permitir 
sua posterior leitura. De nada adianta guardar, de 
qualquer jeito, uma certa informação se não soubermos 
posteriormente onde ela fai guardada. 

Os procedimentos necessários para a gravação 
de uma informação no disco são os seguintes: 


1 - Escolher um nome para o arqusvc. 

As informações ficam armazenadas no disco na 
forma de "arquivos". Um disco pode conter uma grande 
quantidade de arquivos distintus. O sistema operacio- 
nal distingue um arquivo dn nutro apenas pelo nome que 
fica gravado na Diretório do disco, 

0 nome do arquivo deve ser formado por um 
conjunto de no máximo 11 letras e algarismos, dividi- 
dos em duas partes: a primeira, conhecida como "nome 
do arquivo", é composta de 8 caracteres e a segunda, 
conhecida como "terminação do nome do arquivo”, k com- 
posta de 3 caracteres. Entre o "nome" e a "terminação" 
deve ser colocado um ponto separador. 
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Exsmp 1 os i 


CADASTRO. ARO 
HOVTO. JAN 
F I L I AL 1 2. MOV 


2 - Executar o comando para abrir o arquivo, 

Como em utn arquivo convencional, para poder” 
mos guardar ou acessar uma informação, devemos, antes 
de mais nada, abrir a gaveta onde as informações estão 
ar qu i vadas . 

Quando o sistema operacional executa o coman- 
da para abrir um arquivo, pode ocorrer uma das duas 
situações seguintes: 

- o arquivo já existe. 

Neste caso, as i nformações serão gravadas 
"sobre" aquelas existentes, ou seja, as in- 
formações an t er í ormenf e gravadas são simples- 
mente apagadas e no lugar das mesmas são gra- 
vadas as novas informações, 

- o arquivo 0 novo. 

Neste caso, o Diretório é acessado, adiciona- 
do 0 nome desse novo arquivo e reservada uma 
área nova {sem uso) para a gravação das in- 
formações. 


3 - Executar 0 comando para a gravação. 

Este comando indica quais informações deverão 
ser transferidas para 0 disco e efetiva a gravação. 


4 - Executar 0 comando para fechar 0 arquivo. 

Norma i mente, para ganhar tempo , 0 s i st ema 
operacional opera com "buffers" que nada mais são que 
áreas reservadas, na própria memória para 0 armazena- 
manto temporário das informações, 

O tempo que 0 sistema operacional gasta para 
efetivamente gravar uma informação é r e I a t í vamente 
grande, pois para conseguir isso, 0 sistema necessita, 
entre outras at i v i dades: 
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- colocar o disco em movimento, pois, quando 
o cisco não está sendo acessado, ele está 
parado para economizar energia elétrica e 
diminuir o desgaste mecânico do drive, 

- posicionar o cabeçote de leitura e gravação 
sobre a trilha desejada. 

- acionar os circuitos eletrõricns que produ- 
zem a gravação magnética. 


Suponhamos que um programa deseje gravar ape- 
nas a idade de um grupo de pessoas- Ora. a idade de 
pessoas é uma informação constituída de apenas d dígi- 
tos e que, portanto, irá consumir apenas ? bytes no 
disco para cada pessna. O programa, natur a ! men te , irá 
buscar essas idades em algum outru ligar, no teclado 
por exemplo, e depois disso, irá gravar no disco, re- 
petindo esse ciclo até completar as idades de todas as 
pessoas do grupo. 

Se o sistema operacional tivesse que "ir ao 
disco" a cada comando de gravação, o programa perderia 
um tempo re lat i vamente grande, pois a cada ida ao dis- 
co, ele teria que ficar esperando a execução de tudo o 
ciclo de gravação acima apresentado, para a gravação 
de apenas 2 bytes. 

Em vez de " ir ao disco", o sisteno operacio- 
nal "vai ao buffer" e lá armazena os 2 bytes. Na repe- 
tição do cicio, o sistema operacional faz a mesma coi- 
sa adicionando os novns 2 bytes aqueles já "gravados". 
Somente quando o "butte^" já esta cheio é que o siste- 
ma operacional efetívamente produz a gravação no dis- 
cn, transferindo não apenas 2 bytes mas todos os bytes 
que estão no "buffer" de uma so vez, 

A transferencia do conteúdo do "buffer" para 
o disen n feita aut ornai i camete pelo sistema operacio- 
nal quando o buffer fica "cheio", de modo que quando o 
programa terminar todas as gravações necessárias, oode 
ocorrer de o buffer não estar totalmente cheio, A exe- 
cução de um cr mando de "fechamento” do arquivo, garan- 
te que o resto de informações do buffer que ainda não 
foram gravadas no disco sejam efetivamente transferi- 
das e gravadas no disco. 
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Üs proeed rmentos necessários para a leitura 
C6 f n i ornaçoes no d i s c rç são os seguintes. 


1 Fornecer ao sistema operaciunal q nome 
quivo que se deseja acessar. 

Ao executar o comando, pode ocorrer 
duas situações seguintes: 

~ o arquivo já existe. 


do a r - 
uma das 


Neste caso um dos buffers disponíveis será 
alocado exclusivamente para o arquivo e os 
setores onde estão gravadas as informações do 
arquivo ficarão disponíveis para o programa 
acessar . 


- o arquivo não existe. 

Ne^w? CSSO o sistema operacional apresenta 
uma mensagem de erro, indicando a inexistên- 
cia do arquivo. 


£ - Executar o comando para a leitura. 

EstS comando indica quais informações, do ar- 
quiva, deverão ser transferidas do disco para 
a memor i a . 


3 - Executar o comando para "fechar" o arquivo. 

Gcm o "fechamento" do arquivo, o huffer a 
eií3 alocado soará disponível para ser aloca- 
do a outra arquivn. 


D * , ar( iutvo5 podem ser do tipo Sequencial ou 
fiancomi co e oo comandos envolvidos na gravação e lei- 
tura de informações no disco são os seguintes: 

OPEN HELD 

I NPUT | PUT * 

CLOSE 


PHINT « 
GET « 
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0 conando OPEM indica ao sistema operac sanaf 
a intenção de se trabalhar com um certo arquivo e na 
execução do comanda devem ser indicadas: 

- o número do drive onde esta inserido o disco que 
contém ou que deverá conter o arquive. 

- o nome do arquivo. 

- o modo de acesso ao arquivo, que poderá ser 
I NPUT , OUTPUT ou APPEND. 

“ o número de referencia do arquivo* 

- o tamanho dos registros, 

- o tipo de acesso ao arquivo, se sequencial ou 
r andom i co . 

O comando FIELD aplica-se somente 3 arquivos 
do tipo randômíco e indica os campos e respectivos ta- 
manhos que constituem um registro. 

Os comandos PRINT# e ÍNPUTi são empregados 
para a gravação e leitura de dados em um arquivo se- 
quenc i a L 

Os comandos PUTtt e GETtt são empregados para a 
gravação e leitura do dados em um arquivo r andom i co . 

O comando GLOSE é empregado para encerrar n 
trabalho com o arquivo. Ele "fecha" o arquivo e libera 
o buffer correspondente para ser utilizado por um ou- 
tro arquivo que, porventura, o programa venha a abrir. 

Em resumo, os camandos de acesso a arquivos 
são □ s seguintes: 


T í PO DE APOUIVG 
SEQUENCIAL RANDÔMICO 


- Abrir o arquivo OPEN GPEN 

- Gravar uma informação PÍI3NT 4 PIJT I 

- Ler uma informação INPÜT 4 GET 4 

- Fechar o arquivo GLOSE CLÜSE 
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AR Qü IMO SEQUENCIAL 


Os arquivas sequenciais, c orno o próprio nome 
indica, são formados por registros gravados um após o 
outro segunda uma sequência cronológica e possuem as 
seguintes características- 

- os registros podem ter tamanhos diferentes, 

- devem ser acessados somente para leitura ou 
somente para gravação, 

- o acesso deve ser sequencial. 

Em outras palavras, se o arquivo for aberto 
para leitora { FDR INPÜT) não será possível realizar 
gravações no mesmo, a não ser que o arquivo seja fe- 
chado e, a seguir, aberto para gravação [ TOR OUTPUT). 

A primeira leitura ou gravação, íugu após a 
abertura do arquivo, será sempre no primeira registro, 
a segunda seitura ou gravação será sempre no segundo 
registro e essa cor respoiídlnc í a deve ser mantida atá o 
último registro do arquivo, 

Isso significa que caso o programa deseje ler 
n registro do arquivo, deverá íer, obr i g at or i amen- 
te, todos os A7 registros que o antecedem. em. 

Os comandos que permitem o acesso as informa- 
ções de um arquive sequencial são os seguintes; 

OPEN PR INI i I KPUT # GLOSE 

O comando OPEN fornece ao sistema operacional 
as informações necessárias para preparar n arquivo. 

Para as diversas opções de abertura de um ar- 
quivo sequencial chamado "CADASTRO . ARQ" , que está ou 
será montado no drive A;, podemos utilizar um dos se- 
guintes comandos : 

OPEN "A=CAÜA5TRÜ.AR0" FOR OUTPUT AS #1 

quando se deseja abrir um arquivo sequencial onde os 
dados serão gravados pela primeira vez, 

O programador deve tomar certos cuidados para 
evitar que a gravaçao seja feita "em cima" de um outra 
arquivo, verificando se já existe outro arquivo com o 
mesmo nome, através do comandor 

FILES CADASTRO. ARíT 
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antes de executar o programa, ou embutir no próprio 
programa a verificação automática da existência de ou- 
tro arquivo com o mesmo nome. Mais adiante, neste ca^ 
pítufo, apresentaremos algumas sugestões de como isso 
pode ser feíto. 

OPEN "A : CADASTRO. ARQ" FOR APPEND AS #1 

quando se deseja abrir um arquivo sequencial criado em 
um outro processamento para adicionar novas informa- 
ções a ete sem destruir as gravadas anter iormente . 

OPEN " A: CADASTRO. ARG” FOR INPUT AS ttl 

quando se deseja abrir um arquivo sequencial já exis- 
tente onde iremos apenas consultar as informações gra- 
vadas, sem pretender efetuar qualquer tipo de altera- 
ção nas mesmas , 

O comando PRINTft indica quais informações de- 
vem ser gravadas na arquivo. O seu funcionamento é pa- 
recido com o comando PRINT, diferindo apenas pelo pa- 
râmetro tin que indica o numero de referencia do arqui- 
vo . 

Exempiü: Seja um programa que recebe os seguintes da- 
dos pela teclado; 

- nome da pessoa 

- ape lido 

- idade 

- número do telefone 

e grava o nome, o apelido e a idade em um arquivo efia- 
mado *'AMI GOS . AfiQ" e, o apeíido e o número do telefone, 
em um outro arquivo chamado "TELEFONE . TEL rr * 

Neste caso, o programa irá trabalhar com 2 
arquivos simultaneamente, de modo que para cada um 
deles precisamos ter uma conjunto distinto de OPEN, 
PR INI# e CL03E. 

k listagem do programa seria algo do tipo s 

200 MAKF I LC3 ^ £ 

201 PRINT "Inicio do Programa" 

283 OPEN "AM f GOS * ARQ" FOR OUTPUT AS #1 
20*1 OPEN "TELEFONE _ TEL” FOR OUTPUT AS #2 

300 CL5 

301 INPUT "Nume ";N$ 


BE 


302 IF N*="FIH"THEN GOTO 509 

303 I NPUT "Apal ido ",A$ 

304 I NPUT "Idade |$ 

305 f NPUT "Telefone " ; TÍ 


402 

403 


PRINT #1 , N$ : PR | NT #1 . A$ ; PR | KT 
PRINT #2,A$,T$ 


#1 . 1$ 


404 GOTO 300 


500 PR t NT 'Final do Programa” 

501 CLOSE #1 

502 CLOSE #2 

503 END 


Se fosse possível enxergar n que fai grav 3 do 
em um arquivo sequencial, veríamos algo do tipo: 


itefilipiiimü 0 ! lisis 


ffi '. .v':' r ■ V. 




' ' •■■■. .■ . . 

■ - yt-::: r ' ; ' ri . , r ■ 


c I usaes ; 


Olhando o exemplo, podemos tirar algumas con- 


1 Em um arquiva sequencial, cada um dos 
campos fica separado dos outros.. 

2 - As informações são gravadas conforme fo- 

ram digitadas. 


Caso seja executado o seguinte programa: 


201 PR I NT "Inicio do Programa" 

203 OPEN "AMIGOS. ARO" rOR I NPUT 

204 IF EOF(I) THEN GOTO 500 
302 I NPUT #1 ,X$, YS 


AS #1 
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303 PRINT X$;"+”;Y$ 

30^t GOTO 20-T 

500 CLOSE III 

501 PRINT "Fim do Programa" 

503 END 

será apresentado, no vídeo, o seguintes 


' 


Carlos de Almeida+Cariao 
14+Tereza do Carmo 
Terezinha+16 
Milton Tanaka* Japonês 
12+Apareoiolo Simões Sobrinho 
Cido+13 , . 4 

G&raldo Prates de 01 i^eira+Sera 
15+Au,3usto de Carvalho 
Gu.íju+11 ■ , 

Oera Cloti Ide Neira+Clo 
10+Ni^aldete dos Santos 
Nwa+14 

Fim do Programa 


i 3 1 d é, a cada execução da instrução^ 

3B2 INPUTfM,XÍ,Y$ 

as próximas P informações do arquivo são atribuídas, 
respec t i vameot e , âs variáveis X$ e Y$, de modo qus, 
compete ao programador saber a ordem exata em que as 
informações foram gravadas para poder efetuar corre- 
tamente a leitura, 

Na " f o togr af i ~à* f do arquiva, apresentada na 
página anterior, os caracteres usados como separadores 
podem ser visualizados e sao os da códigos ASCII 13 
(&H0D - Carrlage Return) e í &H8A = Line Feed). 

Em algumas situações, nutros caracteres (vírgula, 
ponto-e-vírgula r espaço) são usados para separar os 
campos num arqu i vo* 
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ü caractere aspas (") pode ser gravado num 
arquiva com o emprega da função CHH${33) antes e apos 
a informação, Por exemplo, ss quisermos gravar a frase 
"Hoje á um belo dia rr com as aspas num arquivo 
sequencial prev amente ah cr to com o numa r a 1, devemos 
coma rd ar : 


PRtNT #1 , CHR${ 31 )”Hoj e é um tu? In dia"CHRÍ(34) 

Como veremos mais adiante, os arquivos de da- 
dos, definidos pelo usuário, são mais versáteis de se- 
rem manipulados guando são definidos como sendo do ti- 
po fíandôm í co . Os arquivos Sequenciais são mais apro- 
priadas para a comunicação do programa com os perifé- 
ricos. 


OPEN ”CAS=" FOR INPUT AS #1 
OPEN "CASs" FOR OUTPUT AS #1 
OPEN "CRT/' FOR OUTPUT AS #1 
OPEN ’*GRP FOR OUTPUT AS Hl 
OPEN "LPT s” FOR OUTPUT AS Hl 


ARQUIMO RANDÔrtICQ 

Os arquivos randômicos, diferentemente des 
arquivas sequenciais, permitem o acesso "randomica" a 
q u a i quer um dos registras do arquivo, isto é, os regis- 
tros podem ser acessados diretameníe em qualquer or- 
dem . 

0 tenro ” r a n d ôm i c o " provém dr inglês Random 
que significa "sem uma ordem fixa". Isto significa que 
os registros podem ser lidos ou gravados em qualquer 
ordem e um certo registro pode ser acessado Tantas ve- 
7fts quantas se fi?erem necessárias no programo. 

As características principais de um arquivo 
randnmico são as seguintes: 

~ n tamanho dos registros deve ser fixo, isto é, 
todos os registros devem ter o mesmo tamanho. 

- u acesse pode ser para leitura ou gravação, não 
so fazendo essa distinção no comando OPEN. 

- as registros podem ser acessados em qualquer or- 
dsm, podendo ser acessado em primeiro lugar o 
registro 56, depois o IP, etc. 
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Os comandos que permitem o acesso as informa- 
ções de um arquivo randõmico sao os seguintes: 

DPEN FIELD PUT GET GLOSE 

0 comando OPEN abre um arquivo em disco. Na 
execução deste comando, duas situações podem ser en- 
contradas: 

fl - 0 arquivo não existe. 

Neste caso, o nome rto arquivo será adicionado 
rn Diretório do disco e uma área não usada será reser- 
vada para o arquivo. 

B - 0 arquivo já existe. 

Neste caso, o arquivo existente será aberto. 

Diferentemente do arquivo sequencial, em que 
na abertura devemos indicar se^ü acesso será somente 
de leitura ou s om ente de grauacaü. 0 arquivo rand om i c o 
é aberto para quaisquer tipos de acesso, independente™ 
mente do fato do arquivo ser utilizado para leituras, 
gravações ou atual izacoes, dc modo que temos apenas 
uma única sintaxe para o comando OPEN: 

OPEN "AiGADASTHO. ARÍJ" AS «1 IEN=47 

onde indicamos o drive onde se encontra o arquivo, o 
nome do arquivo, o número de referência e o comprimer 
to dos registros. 

No caso dc arquivos randomicos e^obr i gator i a 
a indicação do tamanho do registro, no parâmetro LEN, 
pois é a existência ou não desse parâmetro que vai in- 
dicar ao sistema operacional u tipo de arquivo, se se 
quenc i a I ou r andôm i co , 

Lima vez fixado 0 ccmp r imen to, todos os regis- 
tros do arquivo, do primeiro até o último, devem ter 0 
mesmo comprimento, nenhum hjte a mais ou a menos. 

0 comando FIELD define as informações Quefa- 
zem parte do registro e os respectivos tamanhas máxi- 
mos. 

Para a montagem do comando FIELD, o programa- 

dor cíftv e i 

1 - Relacionar as informações que fazem par- 
te do registra. 
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Esta é uma atividade de p l ane \ amento, pois o 
programador deve escolher somente as i nf ormacões que 
serão necessár i as . 

2 - Escolher um nome conveniente para cada um 
dos campos. 

Os campos que compeem um registro são asso- 
ciados a nomes de variáveis, Mj nas n do arquivos r a n - 
domicos, tais campos devem ser associados a variáveis 
do tipo strirg, 

Isso deve ser feito f amhám com i nfnrmaçnes 
numéricas, que antes de serem gravadas devem ser cnn- 
ver 1 idas em str i ngs . 

3 - Fixar o tamanho máximo que a informação 
ocupará no d isco , 

A quantidade de bytes que uma informação ocu- 
pa pó disco, depende do tipo de informação. 

informações tipn stMngs ncupam 1 byte para 
cada caractere da informação. 

Informações numéricas ocupam 2, A ou 8 bytes 
conforme o tipo do variável numérica empregada: 


TIPO DP VARUVE1 
NUMÉRICA 


QUANTIDADE DE BYTES 
NO Dl SCO 


Inteira 2 
Real de Precisão Simples A 
Peai de Precisão Dupla 8 


Exemplo: Montar q comando flELD para a definição dos 
seguintes campos de informações: 


- Nome do Funcionário 

- Idade 

- Quantidade de Horas Trabalhadas 
Salário Anual 


Apbs um estudo minucioso, pois "byte ís mo- 
ney", chegamos a conclusão que os seguintes tamanhos 
satisfazem as necessidades dos campos: 
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CAMPO 


T AMANHO MÁXIMO 
DA INFORMAÇÃO 


Notne do Funcionário 
Idade 

Quantidade de Haras Trabalhadas 
Salário Anual 

Fscofhendo um nome apropriado de variável pa- 
ra cada campo; 


30 caracteres 

2 algarismos 

3 algar t smos 
9 algar ismos 


CAMPO 

Nome do Funcionário 
Idade 

Quantidade de Horas Trabalhadas 
Salário Anual 


O comando f I ELD será : 

FIELO #1,30 AS NFI.S AS IQ$,^ AS HT|.B AS SA| 

Os comandos L5ET e RGET servem para transfe- 
rir a informação de uma variável comum para a varia- 
v u | de definição do campo dentro do comando FIELD. 

As informações tipo string são transferidas 

d i retamente = 

LSET NF$ = HOHE# 

enquanto que as informações numéricas devem ser trans- 
feridas convertendo as mesmas de números para strtngs 
usando uma função de conversão de acordo com o tipo 
de var i ãve I numér i ca . 

L5ET I D$ = MKItt IDADE) 

LSET HT$ = MKS$( HORAS) 

L3ET SA$ = MKO#{ SALARIO) 

Usando-se essas funções, as informações ocu- 
parão sempre a mesma quantidade de bytes no disco, in 
dependentemente ao tamanho da informação. Assim, mde- 
pendentemente do tato de a variável SALARIO conter a 
informação 1.00 ou 678450.00 ela ocupara sempre 8 by- 
tes no disco. 


VARIÁVEL 

NF$ 

ID$ 

HT$ 

SA$ 
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Não existe diferença significativa entre o 
LSET e o RSET . 

• O c cima n d o PUT efetiva a transferência dos da- 
dos da memória para o disco. 

Na execução do comando, devemos indicar, por 
meio do número de referência-, en quil dos arquivos de- 
sejamos que a gravação seja feita, e dar também t nú- 
mero do registro onde a gravação deverá ser efetuada. 

Exempl o: 0 comando.- 

PUT #2,423 

fará com que as informações definidas no co- 
mando FiELD sejam gravadas no 423 Q registro do arquivo 
aberto com a referência #2. 

0 comando GET executa o contrário do comando 
PLIT, ou seja, transfere as informações do disco para a 
memór i a. 

Exemplo: O comando: 


GET #1,47 


transferirá o conteúdo do 475 registro do ar- 
quivo aberto com a referência #1 . 

0 comando GLOSE finaliza as transferência. 
Como vimos no início do capítulo, nem sempre 
a execução do comando PUT ocasiona a ida do sistema 
operacional até o disco. Ele "faz de conta" que foi 
até o disco, mas na verdade, toi sõ até o "buffer". 

Vejamos o mesmo exemplo utilizado para exem- 
plificar o uso de um arquivo sequencial, definindo 
desta vez, o arquivo como randõmico: 

A listagem do programa seria algo do tipo: 


288 MAXFÍLES = P 

201 PH INI "Inicia do Programa" 

203 OPEN "AMiGOS.ARQ" AS #1 LEN=42 

204 FIELD #1,30 AS NP$.10 AS AP#,2 AS 
28S OPEN "TELEFONE. TEL" AS #2 LEK=18 
20fi FIELD #2. IO AS AL$.B A5 TL# 


< 0 $ 


300 N = 0 
GLH 

302 INPUT "Nome ",N$ 

303 IF N$=”FIM" THEN GOTO 500 

304 INPUT "Apelido ” ; At 
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305 INPUT "Idade ”, 1$ 

306 INPUT "Telefone " ; TÍ 

401 N = N + 1 

402 LSET NP* = N$ 

403 LSET AF$ = A$ 

404 LSET I D$ = 1$ 

405 PUT #1,N 

406 LSET AL* = A$ 

407 LSET TL$ = T$ 

408 PUT 02, N 

409 GOTO 301 

580 PRINT "Incluídos ”;N ; "reg istros . 

501 PRINT "Final do Programa” 

502 GLOSE #1 
504 GLOSE #2 
565 END 


Se fosss poGsíi/et enxergar o que foi gravado 
em um arquivo randômico, veriamos algo do tipo. 


Carlos de Almeida 
MTereza do Carmo 
zitnha 16Milton Tanaka 


Cari ao 
Tere 


Japonês 12 Apareci 
Cidc. 13be 

eira 6era 
o buoju 

Meira C] 

dos Santos 


areoido Simões Sobnnho 
136eraldo Prates de 01 
15AtA3usto de Caryaih 
ay. IlUera Clottlde 

Cio iSNivaldete 


■ ■ . ■ , 33 , 


Niva 


onde todas as informações ficam gravadas no comprimen- 
to especificado no comando FtELD, 


c I usões : 


Olhando o c.nempla, podemos tirar algumas ccn- 


1 - Em um arquivo r a ndom i c o , cada utn dos campo s tem o 
tamanho especificado no comando FIEID e não há se- 
paradores de campos. 
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2 - As informações são gravadas no tamanho especifica- 
do pelo comanda FíEID, de moda que quando a infor- 
mação tiver um comprimento menor, o restante do 
campo será preenchido com espaços em hranco. 

Caso seja executado o seguinte programas 

£81 PRINT "Inicio do Programa" 

£8£ OPEN "ARQUIVOS. ARO" AS #1 LEN=4£ 

£83 FIELD #1 , 38 AS NF$,10 AS AP$,£ AS ID$ 

204 HX = LOFm/4£ 

381 FOR N = 1 TO HX 
38£ GET #1 , N 

303 PRINT NFÍs I D$ 

304 ÍIEXT N 

500 CLOSE #1 

501 PRINT "Fim do Programa" 

503 END 


será apresentado, no vídeo, n seguinte: 


run 

Inicio do Programa 
Carlos de Almeida 
rereza do Carmo 
Nilfcon Tanaka 
Aparecido Simo&s Sobrinho 
bera Ido Pr ates de Oliueira 
Augusto de Carvalho ^ 
bera Clotilde lieira 
Ni uai de te dos Santos 
Fim do Programa 
Ok 
■ 


k 

■ 


m BI 


■ 


■V,-.""' . f Á .. 

feri 


■{ í 


0 arçuivo. sendo randômtcc, pode ser acessa 
do em qualquer ordem, inclusive do fim para o começo 
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Caso seja executado o programa: 


201 PRINT “Inicio do Programa" 

202 OPEN "AMIGOS. ARQ” AS #1 LEN=42 

203 FIELD #1.30 AS NFS. 10 AS APS, 2 AS ID* 

204 MX = LOFÍD/42 

301 FOR N=HX TO 1 STEP -1 

302 GET #1,N 

303 PRINT NFS; IDS 

304 NEXT N 
580 GLOSE #1 

501 PRINT “Fim do Programa" 

502 END 


será apresentado, no vídeo, o seguinte: 



ACESSO AO DISCO 

Os arquivos sequenciais e randômicos são ar- 
quivos criados e mantidos pelos programas desenvolvi- 
dos pe I o üSüáf i o. 

Além desses tipos, existem os arquivos cria- 
dos e mantidos pelo sistema operacional, são os ar- 
quivos de programas. 
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Esses arquivos, parecidos com o arquivo se™ 
quenelaL são constituídos de registras de tamanhos 
variados, contendo, em cada registro, o seguinte: 

“ numero da instrução em £ bytes 

- código "token” do comando em 1 byte 

- parte de texto da instrução 

- separadores &D0A entre uma instrução e outra 

- final izadur IA para indicar o fim do arquivo. 


O b v ! ame n t e , isso § válida para os arquivos de 
programas em BASIC. Programas feitos em outras lingua- 
gens são armazenados de forma diversa, 

manipulação desses arquivos, isto i H a 
transferencia entre a memória e o disco, é efetuada 
com o auxílio dos ccmardos seguintes; 

L6ÂD SAVE 

D comando LOAO efetua a tr ansf er ê nc i a de um 
programa do disco parada memória*. 

Para a execução do comando, devemos especifi- 
car em qual dos dnves está o programa, ou havendo o 
mesmo programa em vários drives, qual deles desejamos 
carregar e o nome do programa. Exemplo: 

LOÂD "A = CADASTRA™ 

Na execução do comando, poderão acorrer 2 si- 
tuações diferentes: 

- n programa encontrado no disco está gravado na 
forma de ,r token w . 

Neste caso, a transferência será direta, 

- o programa encontrado no disco está gravado na 
forma de texto. 

Neste caso, a transferência cfo programa para a 
memória será efetuada com a conversão dos comandos pa- 
ra a "token” correspondente, 

Maiores detalhes sobre a forma de armazena- 
mento de programas na memória podem ser obtidos na pá- 
gina £3 do livro "Aprof UfHÍandD~se no M5)C, 

o comando 5AVE efetua a transferência do pro- 
grama da memória para o disca, gravando o programa em 
urr arquiva. 
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Para a execução dn remando, devemos especifi- 
car em qual dos drives desejamos gravar o programa e o 
nome do mesmo. Exemplo; 

SAVE ”B = CADASTRADAS*' 

Na execução do comando, duas situações dis- 
tintas poderão ocorrer; 

- O arquivo não existe. 

Neste caso, o sistema operacional inclue o 
nome do programa no diretório do disco e efetua a gra- 
vação do programa na forma de um arquivo com o nome 
CADASTRADAS. 

- O arquivo já existe. 

Se já existir no disco um arquivo com o nume 
CADASTRADAS, independentemente do fato de ser ou não 
um arquive de programa, podendo inclusive ser um ar- 
quivo de dados, o sistema operacional simplesmente li- 
bera a área uuupada pelo arquivo existente e grava, em 
cima, o progr ama que está na memór i o . 

A gravação do programa resume-se em efetuar 
uma cópia do programa que está na memóMa, de modo que 
os comandos são gravadas na forma de "tokeií” a exemplo 
daquilo que está na memória. 

O programador poderá querer que o programa 
seja gravado no disco na forma de texto, com os coman- 
dos gravados conforme digitados, para, por exemplo, 
ser editado com o auxílio de um Processador de Textos. 
Neste caso, basta adicionar o parâmetro "A" para indi- 
car ao sistema operacional cue todos os "tokens” devem 
ser convertidos nas palavras de comando corresponden- 
tes, Exemp I o : 


SAVE "H = CADASTRA , BAS" , A 

Os comandos LOAD e SAVE podem ser usadas den- 
tro de programas. Existem situações em que um determi- 
nado programa não cabe por inteiro na nemária e situa- 
ções em que mesmo cabendn, não nos interessa carregá- 
lo por inteiro, pois diminuiria cais der a ve I mente a 
ãrsa ivre na memória, causando algumas restrições 
quanto a quantidade de bufters ou a quantidade de va- 
riáveis definíveis na memória. 
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Nessas situações, o correto d dividir o pro- 
grama cm 2 ou mais partes e fazer com que uma parte 
carregue, automaticamente, 3 outra parte para prosse- 
guir com o processamento, 

Uma das maneiras de fazer com que uma parte, 
do programa carregue a outra parte, a partir do disco, 
é utilizar o comando f?UN, mas este comando, tem a pro- 
priedade de fechar todos üs arquivos abertos, 

Q comando LOAD com o parâmetro "FT oferece 
uma saída elegante, não sendo nscessárrn, nn programa 
que está sendo carregado, abrir novamente os arquivas 
cm uso, isto é, todos os arquivos abertos pelo primei- 
ro programa continuarão abertos apos a carga do segun- 
do programa. 

Vejamos, a seguir, algumas tácnicas de acesso 
ao disco objetivando o seguinte: 

- facilitar e aumentar a velocidade de desen- 

volvimento de um programa 

- t ac iM t ar e diminuir o tempo gasto na in- 
terpretação da íistagem de um programa. 

1 - Padronizar e agrupar as comandos de aber- 
tura de arquivos, 

Na digitação dos comandos de abertura de ar- 
quivos pode ocorrer um erro de digitação que possa por 
a perder todo o f uncífinamento do programa. 

Recomenda-se procurar digitar o menos possí- 
vel para evitar c^ros de digitação, 

Um grande sistema ê gerafmente composto por 
vários programas que manipuiam diversos arquivos, Um 
desses arquivos poderia, pnr nxempto, apresentar as 
seguintes instruções de abertura: 

OPEN "BzMOVIt.lPir AG ttt LEN=8G 
201 FIELD #1,20 A5 N$,15 AS AS ÀS$,5 AS BS$ 

Veja bem, são instruções de digitação difí- 
cil, podendo -se cometer facilmente algum erro de digi- 
tação. Se esse arquivo é um daqueíes que é manipulado 
em rodes os programas, essas instruções deverão ser 
digitadas em tndos eles. Fatal mente algum erro de di- 
gitação será come tido, 

Podemos criar uni arquivo contendo tudus us 
gabaritos de arquivos utilizados pelos programas do 
sistema. Tal arquivo pode ser gravado na forma de tex- 
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tu lum u nome de GABARITO. FNT e quando um nove progra- 
ma precisar de um dos gabaritos, poderíamos carregar n 
gabarito que nos interessa com a instrução: 

HERGE "‘GABARITO. FNT" 

Exemplo: Vamos supor que os programas PROG1 , PROG? e 
PR0G3 acessam o mesmo arquivo, de rnode que as instru- 
ções; 

OPEN "A: CADASTRO. AR Q” AS ftl LEN = 89 
f I ELO «1,30 AS N$,58 AS E$,8 AS S$ 

devem estar presente nos 3 programas. 

Afim de evitar erros de digitação pur exeni- 
pli), queremos evitar de digitar essas instruções em 
cada um desses programas, Para íssn= 


1 - Digitar somente as instruções comuns e 
salvar no disco na forma de texto. 


NEW 

OPEN ” A : CADASTRA. ARQ” AS #1 LEN=8B 
flELD #1,3® AS N$,50 AS ES,® AS S| 

SAVE "GABAR I TO . FNT” , A 


2 - Incluir as instruções em cada um dos 3 
programas* 


LI! AO "PROGV 
HERGE “GABAR 1T0. FNT" 
5 A VE "PR0G1" 

LOAD "PRÜG2" 

HERGE ^GABARITO. FNT" 
SAVE “PR0G2" 

LOÂO "PR0G3” 

HERGE “GABARI TO. FNT“ 
SAVE 'TR0G3" 


3 - & numeração das linhas dos comandos de 
abertura dos arquivos poderá ser padronizada entre 
608$ e G999 e a execução da abertura poderá ser efe- 
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tuada por um comando GOSUB. Assim, todos os comandos 
de abertura de todos os arquivos que possam ser neces- 
sários aos diversos programas do sistema ficarão agru- 
pados entre as linhas S 000 e 6999. 

Isto fará com que a listagem do programa seja 
menos poiuída, pois no lúcleo principal teremos apenas 
uma instrução do t i po : 

200 GOSUB 8018 

sem a poluição causada oelas instruções: 

200 OPEN "A: CADASTRA. ARQ" AS Hl LEN = 88 
202 FIELD Hl, 38 AS N$,50 AS E$,8 AS S$ 

Neste caso, a rotina fonte deve ser digitada 
conforme o seguinte; 

6010 GPEN "A :CADASTRA . ARO” AS «1 ! FN = 88 
6012 RELD Hl. 30 AS N$,5B AS F$.R AS S$ 

6011 RETURN 


SAVE ”GAflARlTO,FNT',A 

3 - 0 número do drive pode ser definido em 

uma variável, para que d programador possa, rapidamen- 
te, definir os arquivos em drives distintos, o que é 
importante, principalmente na fase de implantação do 
sistema. 

Em vez de; 

ÜPEN "A = CADASTROr* AS »1 tEN=47 

Ut i i i zar ; 

OPEN DCÍ+”CADASTR(T AS #1 LEN=17 

onde a variável DG$ possa ser definiria no início do 
programa com : 

OCÍ = "A:” 

ou lida, apartir do teclado com : 

INPUT "Em quai drive esta o Cadastro ” ; OC$ 

ou, ainda, lida a partir de um arquivo de parâmetros 
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onde está gravada a configuração do sistema de arqui- 
vos . 

Essa p o s s i tii l idade é muito importante r> os ca- 
sos em que o programador pretenda fazer farta distri- 
buição do programa, pois haverá interessados que dis- 
poem de apenas 1 único drive, enquanto que outros, 
mais afortunados, disporão de muitas drives. Nestes ca- 
sos, o programador não precisará percorrer a listagem, 
instrução por instrução, a procura dos A? e B : para 
serem alterados. 


^ - As mesmas observações acima podem ser 
aplicadas ao nome do arquivo. Isto e muito importante 
nos casos de programas que executam processamentos 
mensais. 

Nestes casos, é comum utilizarmos a identifi- 
cação do mès como parte do nome dos arquivos, como por 
exemplo? 


MOVTO. JAN 
PARAM. JAN 

Definindo-se o nome do arquive em uma variá- 
vel, o mesmo programa poderá ser executado com arqui- 
vos de meses diferentes? 

180 ÍNPUT "Qual o «es ";HE$ 

1 81 ARQ* = "MOVTO /'+ME$ 

10£ QPEN "A="TAflQ$ AS #1 LEN=47 


5 - Os arquivos acessados pelo programa náo 
necessitam estar todos simultaneamente abertos. Em ca- 
da parte do pfograma, devemos abrir somente aqueles 
arquivos que serão acessados por aquela parte e tão 
logo um determinado arquivo não seja mais necessário, 
devemos proceder ao seu fechamento, inclusive para 
maior proteção e segurança dos dados. 

Desse modo, se um programa for operar com 7 
arquivos, não é racionai abrir todos eíes no início do 
programa e fechá-los, todas, somente ao finai do pro- 
grama. A não ser que isso seja realmenfe necessário. 

Lembre-se que a quantidade máxima normal de 
arquivos que podem estar s imu í taneamente abertos é fi- 
xada pelo sistema operacional durante a inicialização 
do sistema, quando sao definidos as ”buffers”, um para 
cada arquivo. Havendo a necessidade de man i pui acio de 
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roais de um arquivo simultaneamente, a arquivo deverá 
definir mais espaço para os "buffers ,p * Nn MSX, por 
exemplo, isso pode ser feito peio comando MAXFILÉS. 

Lembre-se também que existe uma correspondên- 
cia inversa entre a quantidade de "buffers" e o espaço 
disponível na memória para o programa. 

Para poder operar somente com aqueles arqui- 
vos necessários em cada parte do programa, o número de 
referência do arquivo pode ser definida em uma variá- 
vel, como no exerrpfo seguinte: 

OPEN " A: CADASTRO" AS # NARt) LEN=47 

6 - Para facilitar a compreensão da estrutura 
dus diversos arquivos acessados pelo programa, as ins- 
truções de abertura e correspondentes instruções de 
definição de campas podem ser agrupadas em um certo 
trecho do programa, sendo executadas por meia de co- 
mandas G05UB h 

OS 08 * - 

6002 ’ A8REAHQ. FNT = Abertura de Arquivos 
6884 • — 

6811 ' > Arquivo de Parâmetros 

6812 OPEN OR$+"CHPAR . ARQ” AS 0NARQ LEN=S1 

6814 FIELO 8NARQ.30 AS TT$,2 AS NM$,9 AS DM$,2 AS RC$, 

2 AS RM$,2 AS UD|,2 AS 1*1$, 2 AS UA$ 

6816 RETURN 

6020 ' > Cadastro de Materiais 

6822 OPEN DR$+”CHCAD_ARQ" AS 0NARQ LEN=63 

6824 Fl EL D «NAR0.4 AS CD$,25 AS DC$.18 AS TG$,4 AS SR$, 

4 AS SI*. 4 AS ÇM*,6 AS UE$.B A5 US$ 

6826 RETURN 

6830 ' > Arquivo de Movimento 

6832 OPEN DRS+"CMMOV . AR0" AS 0NARQ I FN=?5 

6034 F1ELD 8NARQ, 6 AS HO$.18 AS MH*,4 AS MC$,4 AS MQ$, 

1 AS NV$ 

6836 RETURN 


SAVE "ABREARQ . FNT” , A 

Salvar esta rotina para ser utilizada no sis- 
tema apresentado no capítulo 3. 

7-0 comardo FIELD, como vimos, define a es- 
trutura do arquivo randômico, separando os campos que 
constituem o registro. 
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De acordo com o objetivo de um trecho do pro- 
grama, os campos contíguos podem ser agrupados em ou- 
tros campos para facilitar a manipulação dos mesmos. 

Nestes casos, podemos encadear vários coman- 
dos FIELD, contendo em cada um, a estrutura mais con- 
veniente para a manipulação adequada das informações. 

100 OPEN "CU ENTES. ARO" AS #1 LEIW7 

162 FIELD #1,26 AS NQME$,30 AS EDR$,5 AS CEP$, 

80 AS MUN$ , 2 AS FEO$ 

104 FIELD #1,50 AS X$,27 AS LCAL$ 

105 MAX = L0F{1)/77 

108 FOR REG = 1 TO HAX 
110 GET #1 ,REG 

112 PRINT "Nome = "NOMES 

114 PRINT "Endereço = "EÜR$ 

116 PRINT "Local idade = LGALÍ 

110 «EXT REG 
120 ENO 

Observe que no programa acima, a instrução? 

116 PRINT "Localidade = LCAL$ 

equivale a instrução? 

116 PRINT "Localidade - ”CEP$;KUN$; FED$ 

Para compreender bem o funcionamento dos co- 
mandos de acesso ao disco, recomenca-se elaborar di- 
versos programas curtos, enfocando, em cada um deles, 
um aspecto diferente do acesso ao disco. 

Para sentir a performance dos acessos, o pro- 
gramador deve executar os testes em cima de arquivos 
com uma quantidade considerável de registros e, para 
evitar uma grande perda de tempo digitando um grande 
arquivo, recomenda-se desenvolver um programa especí- 
fico que "cria" automaticamente tais arquivos. 

100 ^ === = = 5 = = ===a = = :: ==^-=^ £ : = = 2 =:=2 3 = = = ====== = ^= = 

102 ■ CRI ARQ = Cria um arquivo com dados fictícios 
104 1 = = E = = = =^ S = := = ^ = = = = = = = : = = = = = = : = = = = := = = SS = = = 2 = 

106 ' Roberto Uatanabe 22/03/87 
108 v 

200 , 

2 02 , Def í n i coes iniciais 

PQA 

816 NARQ=1 


86 


212 DRIVE*="A=" 

214 ARQ$=’’CADASTRO. ARQ" 

21 B GOSUB B016 

30a ' 

302 ' Cria as informacoes aleatoriamente 

310 FOR REG s 1 TO 1000 
312 NP$ s "*' 

314 11 - RKD{ 1 ) * 20 

31 6 II = II + 10 

318 FOR J = 10 TO II 

328 NP$ = RP$ + CHR${ 65+RNB< 1 >*26) 

322 NEXT J 

324 SALARIO = RNO{1) * 30008 
32 K LSET NFt = NP$ 

328 LSET 5F$ = MKS$( SALARIO) 

330 PUT HNARQ.REG 
332 NEXT REG 

400 * 

402 ' Final do Programa 

404 ' 

410 GLOSE 8NARQ 

412 PRiNT "Final do Processamento" 

414 ENO 
B080 * 

8002 ' Rotinas de abertura de arquivos 
6004 ' 

8010 ' Cadastro de Funcionários 
6012 OPEN DRIVE$+AHOI AS #NAf?Q LEN=34 
6814 FIELD *NARQ,30 AS NF$,4 AS SF$ 

6816 RETURN 


ORDENAÇÃO DE ARQUIVOS 

Uma das grandes vantagens do computador é sem 
sombra de dúvida, a sua capacidade de manipular gran- 
des quantidades de dados em pouco tempo. 

Dentre as manipulações possíveis, aquela que 
mais caracteriza a facilidade de tratamento de dados 
é a possibilidade de ordená-los segundo um certn 
crilérío, Na contabilidade, por exemplo, independente- 
mente da ordem em que os dados foram inseridos, deve- 
se emitir determinados relatórios com os dados ordena- 
dos segundo a data, como é o caso do Diário, e outros 
relatórios devem ser emitidos com os dados ordenados 
segundo o código das contas, como é o caso do Razão, 
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Nn CnntrnlR de Estaques, existem relatórios 
que devem apresentar as materiais por ordem alfabética 
e outros por ordem de código da produto. 

Analisando as muitas aplicações de computado- 
res iremos constatar que em todas elas, havendo a pos- 
sibilidade de apresentação dos dados ordenadas contar- 
me critérios diversos, a programa ganha novos impulsos 
sendo mais valorizado* 

Para o computador é indiferente se, para a 
realização de um determínadn serviço, file terá que 
executar algumas poucas ou milhares de ntruções. 

Gooipcte ao programador, programar o computa- 
do^ para ta ! . 

Manipular dados é sempre uma atividade traba- 
lhosa, repetitiva e cansativa* 

Pegue, por exemplo, um relatório de 200 pági- 
nas e tire 10 cópias* Isso vai resultar em uma pilha 
com 2,000 folhas* Agora separe ds 18 exemplares. Tra- 
balhoso e cansativo não? 

Analisando as diversas alternativas em que 
isso pode ser feito, iremos verificar que algumas de*' 
las, mais racionais, irão ocasionar um trabalho menor* 
No caso em questão, se dispusermos de uma 
grarde mesa podemos empregar a técnica de "colocação", 
isto é, da pilha principal, pegamos um pequeno maço de 
folhas, e andando ao redor da mesa, vamos ‘'colocando", 
folha por folha, cada uma das 10 cópias. Completada a 
colocação das 10 copias, o maço que esta em nossas 
mãos estará automaticamente posicionado na segunda pa- 
gina do relatório, de modo que podemos repetir a ope- 
ração anterior, "colocando", desta vez, a segunda pa- 
gina, Repetindo-se esse eiclu 200 vezes, teremos os 10 
exemplares perf e ! tameníe separados* isso, é claro, se 
a máquina copiadora não cometeu nenhum engano, tirando 
algumas cópias a mais ou a menos* 

A técnica com que iremos manipular os dados, 
pode depender do tipo de dados que dispomos* 

No exemplo de separar as cópias de um relató- 
rio, podemos ter um outro caso em que desejamos tirar 
200 cópias de um relatório de apenas 10 páginas. 

Empregar d técnica anterior neste caso, sig- 
nifica que teremos que ter a nossa disposição, uma 
enorme mesa onde possamos dispor todas as 200 cópias. 
Nesse caso, recomenda-se a técnica da "remoção' 8 . Nessa 
técnica, retiramos da pilha principal, onde há 2,000 
folhas, maços de exatamente 280 foihas e dispomos tais 
maços, lado a lado, ao longo da mesa* Teremos, portan- 
to, 10 pilhas distintas. Feito isso, andamos em redor 


tía mesa, "retirando" uma folha de cada pilha. Após a 
última pilha, teremos, nas mãos, um relatório comple- 
to* Repetindo esse ciclo £00 vezes, teremos separadu 
os 208 exemplares do relatório, 

Para a ordenação de dados através de um com- 
putador, também não existe apenas uma única técnica. 

Muitos pesquisadores elaboraram técnicas es- 
peciais e algumas delas ficaram tão famosas que são 
conhecidas peio nome do seu autor. 

0 programador deve analisar aiguns aspectos 
importantes antes de adotar alguma técnica de ordena- 
ção de dados. Vejamos algums desses aspectos? 

A - Como os dados se encontram e que tipo de o I as- 
s i f i cação é dese j ada . 

0 - Qual o tamanho do. espaça de trabalho disponí- 
vel, em outras palavras, qual o tamanho da 
"mesa" 1 ? 

Vamos analisar o problema da ordenação de da- 
dos, em função da situação em que os dados se encon- 
tram, antes da ordenação. 


ORDENANDO UM ARQUIVO COM 
POUCOS REGISTROS FORA DE ORDEM 

Vamos supor que um arquivo já se encontra or 

denado , 

Um cadastro de clientes, por exemplo, encon- 
tra-se normalmente ordenado por ordem alfabética de 
nomes, e nesse cadastro queremos inserir um novo cli* 
en te , 

Inserir um novo cliente, significa adicionar 
apenas um novo registro, e neste caso, querer aplicar 
um algoritmo de ordenação em todo o arquivo, é uma 
tentativa meio irracional, mesmo que o tal algoritmo 
seja dos mais eficientes possíveis. 

Mesmo se tratando de uma simpíes inserção, 
isso não pode ser efetuado diretamente, pois um arqui- 
vo em disco nao é como um fichário com fichas de pape- 
lão, onde inserir uma nova ficha significa "encaixar" 
a mesma no meio das outras e, se ficar apertado, dar 
uma empurradinha nas outras fichas, 

Nos arquivos em meia magnético, os registros 
ficam fisicamente "presus” naquelas posições onde fo- 
ram gravados e a atividade de "deslocar" os registros 


83 



é inviável. 0 que é possível, é 3 leitura num lugar e 
a gravação em outro local um pouco deslocado, para fa- 
zer de conta que estamos deslocando. 

Dependendo da espaçti disponível no disco, po- 
demos empregar uma das duas técnicas apresentadas a 
seguí r ! 


A - Empregar 2 arquivos. 

Criar um arquivo temporário e transferir os 
registros, anteriores àquele que desej amo s inserir, 
para 0 novo arquivo. Gravar no arquivo nova, 0 novo 
registro, 

Transferir os demais registros para 0 arquivo 

nn vo * 


Enemp 1 0 : 


300 

TB? 'Entrada de Dados 

304 

310 INPUT ”nome";N$ 

31? IKPUT "endereço" >E$ 

400 

40? 'ADre os Arquivos 

404 ' — — 

410 ÜPEN "A: CADASTRO, ARO" AS #1 LEN=80 

412 FIELB «1,30 ÃS NI $,50 AS EIS 

41 4 F f ELD UÍ . B8 AS Cl $ 

41 6 OPEN "A: CADASTRO, *$$" AS #2 LEN*80 

413 F I ELD #2,30 AS N2$,50 AS E2$ 

420 FIELD «2,00 AS C2$ 

508 ' 

502 'Transferencia Iniciai 

5 04 — 

510 CONTROLEI = 1 

512 MAXREGfc = LGFfli / 80 

514 FOR RnGl=1 TO MAXREG& 

51 B GET #1 .RFC! 

518 ! F CONTROLEI^? THEN GOTO 119 

528 ÍF NI $>N$ THEN LSET C2$ * Cl$; 

LSET N2$ - m = 
LSET E2$ = E$ = 
PUI #32,REGS = 
CONTROLEI S 2 * 
GOTO 610 




522 LSET C2$ = C1$ 

524 PliT ÍÍ2,REG1 
526 GOTO 614 

g 0 0 ■ 

692 'Transferencia Final 

604 ' 

610 LSET G2$ = CU 
612 PUT 112, REG11+1 
614 NEXT REGI 

700 ' 

702 'Final do Prnqr ama 

704 ' 

718 MAXREGl = HAXREGl+1 

712 PRINT "O Cadastro contem "MAXREGt" registros 
714 GLOSE #1 
716 GLOSE #2 

718 Kl LL ”A : GADASTRO . ARO" 

728 NAftE "A : GADASTRO . $$$” A5 ”A s CADASTRO. ARQ" 

722 END 


B - Um único arquivo. 

Neste caso, iremos "deslocar'’ os registres, 
lendo-os e gravando -os um pouco deslocados. 

_Na alternativa de nãc se conhecer, a priorí, 
a posição onde n nnun registro deve ser encaixado, o 
programa deve procurar essa posição, varrendo todo o 
arquivo. 


308 *— 

302 'Entrada de Dados 
304 ' 

310 INPUT "no(ne”,N$ 

312 ( NPUT "endereçfi"; E$ 

400 ' — — — ■ — . — ~ — 

402 'Abre arquivos 

404 

410 OPEN ”A.- CADASTRO. ARQ” AS #1 LEN=80 
412 FIELD #1.30 AS NI $,58 AS F1$ 

414 F1ELO 1(1,80 AS C1$ 

500 - 

502 'Transferencia Inicia! 

5 H 4 * 

510 CONTROLEI = 1 
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512 MAXREG! = LOFUJ/80 

514 FOR REG1=MAXREG$ TO 1 5TFP -1 

51 G GET81.REG1 

51 B IF N1$>N$ THEN PUT &1.REG!+1 . GOTO 528 
526 L5ET NI $ = N$ 

522 L3ET E1$ = E« 

524 PUT 81 ,REG!+1 

52R REGl s 1 

520 NEXT REGI 

600 ’ 

602 'Final dn Programa 

604 ' 

610 HAXREGt = MAXREG! + 1 

61? PRINT"0 cadastro contenTKAXREGVreg t sros" 
614 GLOSE 61 
616 GLOSE 02 
610 END 


0 método ES apresenta a vantagem de necessitar 
de um espaçn menor no disco, porém existe a possibili- 
dade de ocorrer um imprevisto durante o deslocameto 
dos registro, provocando a perda do arquivo. 

Se a programa já souber a posição em que o 
nova registro deve ser encaixado, o programa pode va- 
ler-se de uma rotina, como a abaixa apresentada, para 
deslocar as registros finais e "abrir" uma vaga para 
poder-se inserir o novo registro. 


1 30 @ ' 

130? ■ ROTINS.FNT » insere Novo Material 

1384 * 

1310 IF REGI. > MX! THEN GOTO 1358 
1312 LQCATE 0,12 

1314 PRINT TAB(9)STRtNG*lP?/’*”) 

1 31 6 PRINT TAB[ 0 )"Estou providenciando a" 
1316 PRINT TAB( 9)"í nsercao do registro." 
1320 PRINT TABE 12)”NA0 INTERROMPA !" 

1322 PRINT TAB( 9 )STR INGÍE22,”*") 

1324 GOSUB 5350 

1332 REF = HX! - REGI 

1340 FOR C!=MX! TO FIRST! STEP -1 

1342 GET iNAHQ.C! 

1344 PUT 8NARQ.OU1 

1346 LOCATE 5+38*(HX!-C!+1 )/REF,19 

1348 PRINT ">" 

1350 NEXT C% 
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1352 LOCATE 0.12 

1354 PRINT SPC{ 1G8 ; ; PRINT 5PG(160) 

1350 RETUDN +30*{HX1-C1+1 1/REF.19 

1348 PRINT 

5358 — — — — — — — — — ™ — - — — - — — — — — — — — ■ — — — 

5352 * HAPAACC.FNT = Mapa de Acompanhamento 

5354 ' — 

5358 *Hostra o estágio do processo 

5362 LOCATE 5.17 = PRINT "0V'5PACE$U3)"50V'; 

53GB PRINT SPACE«{ 11 )"1 001" = i OCATE 5,18 

5368 PRINT ”:*;rFOR N=1 TO Si PRINT ” \" , : NEXT N 

5370 RETURN 

SAVE “RQTIN5. FNT", A 

Salvar esta rotina par3 ser utilizada no sis- 
tema apresentado tio capítulo 9. 

As técnicas apresentadas são válidas quando 
se pretende inserir um novo registro em um arquivo já 
existente. 

Vejamos como proceder para colocar em ordem 
arquivos que possuem alguns registros já gravadas fora 
da ordem, ainda sem apelarmos para um algoritmo de 
ordenação. 

Existem várias técnicas para isso, mas vamos 
detalhar apenas uma delas, passo a passo. 


1 - Varrer o arquivo todo a procura dos re- 
gistras que estão fora da ordem. 

A cada registro que estiver fora da ordem, 
copiá-lo em um arquivo provisório. 

Colocar uma marca, por exemplo no re- 

gistro que foi cop i ado , 

0 arquivo provisório ficará, assim, com todos 
os registros fora de ordem. 


2 - Para cada registro do arquivo provisório, 
varrer o arquivo a procura da posição 
correta de encaixe do registro. 


3 - Varrer novamente o arquivo a procura de 
um registro livre, qae foi marcada com 
"$$$”. 
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4 - Deslocar os registros entre a posição li- 
vre e a posição de encaixe, transferindo 
a posição livre par 1 a a de encaixe, 

D - Copiar o registro do arquivo provisório 
na pos i ção I i vr e . 

G - Repetir o ciclo a partir do passo 2. 

A listagem da rotina é apresentada a seguir: 


210® ' 

2102 ' RTPOEORD.FNT = Poe m ordem sen ordenar 

2184 - 

2110 GET #A1,1 
2112 A) = N$ 

2114 MT = a 

2118 ' Retira os registros fora de ordem, i ogartdo-os 
no arquivo provi sor io 
2120 FOR REG = 2 TO MREG 
2122 GET DAI .REG 

2124 IF N$ > A0 THEN A$ = N$ c GOTO 2140 
2126 MT = MT + 1 

2128 GET #A1 , REG - 1 

2129 LSET M$ * N$ 

2130 PUT #A2.HT 
2132 LSET N$ = "$$$" 

2134 PUT 0A1.REG - 1 

2136 GET UAI. REG 

2138 A$ = fi$ 

2140 NEXT REG 

2150 ' Procura a posicao de encaixe, desloca e encaixa. 
2152 FOR RT = 1 TO MT 
2154 GET 0A2.RT 

2156 A$ = Ht 

2160 GOSUB 2200: 'Procura a posicao de encaixe. 

2162 IF EX « 8 THEN EX > MREG 
2170 GOSUB 2300 = 'Des toca e encaixa. 

2172 GET #A2, RT 

2173 LSET Nt = Mt 

21 74 PUT #A1 , EX 
2176 NEXT RT 
2180 RETURN 


SAVE "RTPOEORD.FNT", A 
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2208 ■ 

2202 ' RTPROGPE.FNT = Procura a posicao de encaixe 

2204 ’ — 

0218 EX = 8 

2012 FOR REG = 1 TO MREG 

2214 GET *A1,REG 

2218 IF N$ = ”$$$" THEN GOTO 2224 

2210 IF N* < A$ THEN GOTO 2224 

2228 EX = REG - 1 

2222 REG = HREG 

2224 NEXT RFR 

2226 RETÜRN 


SAVE "RTPROGPE. ENT", A 


__________ 

2382 * RT0E5ENC.FNT = Desloca e encaixa 

2394 - 

2388 FOR REG = 1 TO HREG 
2318 GET UAI , REG 

2312 IF N$ <> "$í$'"+SPAGE$t 1 7) THEN GOTO 231B 
2314 L I V a REG 

2318 REG = HREG 

2318 NEXT HEG 

2338 IF LIV < EX THEN PS = 1 

2332 IF LIV > EX THEN PS = -1 

2334 FOR K = LIV TD EX-PS STEP PS 

2336 GET 8A1.K+PS 

2338 PUT «A1.K 

2348 NEXT K 

2342 RETURN 


SAVE ”RTDESENC.FNT*',A 


188 

182 

184 

118 

112 

288 

282 

284 


Testar a rotina com o proqrama; 


EXCÍSSORO . BAS = Coloca en ordem, sem ordenar 
R.H.Watanabe 23/8S/B7 


Definições iniciais 
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286 OPEN "cadastro. arq" AS 11 LEN«H8 
208 Ff ELO *1,20 AS N$ 

210 OPEN "arqui vo.prv" AS *2 LEN>20 
212 FIELD *2,20 AS Kf 

214 LSET N$ a "Antonio ”:PUT 1,1 

216 LSET N$ = "Benedito ".PUT 1.2 

219 LSET N* = "Carlos ” = PUT 1.3 

220 LSET N$ = " I vo ** ",PUT 1,4 

222 LSET N$ = "Deniso ” S PUT 1,5 

224 LSET N$ = "Edson ",PUT 1,6 

226 LSET N| = "Fel i cio PUT 1,7 

22B LSET N$ = "Gastao " = PUT 1,8 

238 LSET N$ = "Knese ** ”:PUT 1,9 

232 LSET N$ = "Hélio ".PUT 1,10 

234 LSET N* = "Jame " : PUT 1,11 

236 LSET N0 = "Luciana "sPUT 1,12 

230 HREG = 12 

248 Al = 1 

242 A2 = 2 

360 ' 

302 ' Teste da Rotina de Ordenacao 

304 ' — 

310 PRINT "*** INICIAL ***" 

312 FOR N * 1 TO HREG 
314 GET 1.N 

316 PRINT N,N$ 

318 NEXT N 

320 GOSUB 21 00 
330 PRINT "*» ORDENADO ***" 

332 FOR N = 1 TO HREG 

334 GET 1.N 

336 PRINT N,N$ 

338 NEXT N 

340 PRINT ”*** FIM **«" 

342 GLOSE #1 , »2 

344 Kl LL "CADASTRO . AR(T 

346 Kl LL "AROUIVO.PRV" 

348 END 


MERGE "RTPOEORD. FNT” 
MERGE "RTPROCPE . FNT" 
MERGE "RTDE5ENC . FNT" 
SAVE "EXCOSORD . BAS" 
RUN 
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ORDENANDO UM ARQUIVO COM 
MUITOS REGISTROS FORA DE ORDFM 


A ordenação de um arquivo em situações em que 
a ordem dos registros é desconhecida, isto é, os re- 
gistros poderão estar total mente misturados, parcial- 
mente ordenados ou mesmo ordenados segundo uma ordem 
desconhecida, é uma tarefa um pouco mais uumplexa, 
comparada aquela situação em que é conhecido o cri té- 
r ío de ordenação. 

Nestes casos, antes de adotar um algoritmo 
eficiente, devemos analisar alguns pontos importantes 
que influem na velocidade da ordenação, 

0 algoritmo, qualquer que seja ele, irã ete~ 
tuar uma certa quantidade de comparações e trocas de 
pos i ções . 

0 programador deve estimar o tempo total des“ 
sas comparações e trocas- Considerando que tais tempos 
dependem f undamenta f mente da configuração do seu com- 
putador, realize alguns ensaios comparativos e anote 
no seu Caderno de Dicas o tempo unitário, executando 
P rog r amas do t i po ; 


10® TIME = 0 

102 FOR N=1 TO 1000 

1 04 NEXT N 

1 06 PRfNT "TEHPO= ", T I ME/60 ;"s" 
108 END 


100 TIME s 0 
102 FOR N=1 TO 100® 
m A = O 
106 NEXT H 

108 PRINT ”TEMP0= " , T IME/60;"$" 
110 FND 


100 TIME = 0 
10H FOR N=1 TO 1800 
Í0-T IF A=8 THEN GOTO 106 
10G NEXT H 

108 PRINT "TEMPOs * ; T 1 ME/60 ;”s" 
110 FND 
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No cnmpn t sdnr fim qua efetuei esses ensaios, 
obtive os seguintes tempos í 


- cada loop FOR . NEXT = 1,96 rnseg 

- cada transferencia do tipo A-B = 1.42 

“ cada comparação com IF = 2,55 


Suponhamos que desejamos ordenar um certo 
conjunto contendo 1000 números e o algoritmo emprega- 
do efetue N*N/2 comparações e N*N/4 trocas. Neste ca- 
so, g tempo totaí será calculado conforme o segurnte: 


-FOR ... NEXT 

- Comparações 

- Trocas 


1000 * 1000/2 * 
1000 * 1 000/2 * 
1000 * 1000/4 * 


1,96 = 960.000 
2,55 = 1.275.000 
1,42 = 355.000 


TOTAL 


2.590.000 mi íf ssegundos 


o que representa cerca de 43 minutos. 

Observe que esse tempo, corresponde a orde- 
nação do conjunto, supondo que o mesmo já esteja na 
memória, No caso de ordenação de arquivos em disco, 
devemos considerar o tempo gasto para a transferência 
das informações do disco para a memória e, após a or- 
denação, o tempo gasta para a transferência das infor- 
mações da memória para o disco. 

O tempo de leitura e de gravação no disco de- 
ve ser fevantado por mcío de ensaios, pois depende 
também da configuração do seu computador. Utilize um 
programa do t+po : 


100 OPCN "ATESTE. ARQ" AG 1*1 LEN-1 
102 FIELD #1.1 AS CAMPO$ 

164 LSET GAWOÍ = "A” 

106 TIME = 0 
108 FOR REG=1 TO 1000 
110 PUT 01.ÍÍEG 
112 NEXT AEG 

114 TI = TIME : TIME = 0 
116 FOR REG=1 TO 1080 
118 GET #1 , REG 
120 NEXT REG 
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122 T2 = TIME 

124 PRÍNT "TEMPO PARA G»AVACAÜ=” ; T1/68;*V' 
126 PR INI "TEMPO PARA LEI TURA *",T2/G0/V P 
128 BID 


Repita o ensaio com outros tamanhos de regis- 
tros e monte uma tabela comparativa do tipo: 


TAMANHO 00 REGISTRO 
(BYTES) 

TEMPO GASTO POR REGISTRO 

NA GRAVAÇÃO 

NA LEITURA 

18 



48 



70 



100 



130 




O programador verá que os tempos de acesso ao 
disco dío re I at i v amente "grandes" quardo comparados 
aos tempos de manipuíação de dodios na memória» Porisso 
é importante escoiher um algoritmo de ordenação que 
efetue o mínimo de ieituras e gravações. 

Na ordenação de um Cadastro de For necednres , 
por exemplo, estarão em jogo as seguintes informações: 


Nome 

28 

Endereço 

50 

CEP 

5 

Cidade 

17 

Estado 

2 

Va 1 n r 

4 

Telefone 

7 

G,G.C. 

14 

1 nsc r i çãc Estadua 1 

2 


TOÍAL = 128 bytes 

Lima das idéias seria a de se efetuar a orde- 
nação totalmente na memória. Para isso, o programa te- 
ria que i n i c I a Imente , transferir todo o conteúdo do 
arquivo para a memória, em variavais do tipo N0ME${ N) , 
EDRítíN), etc-, ríepnis efetuar a ordenação propriamente 
dita e, terminada a ordenação, gravar de vnlta no dis- 
co, as informações jã ordenadas, 


83 




100 * 

102 ' Ordenacau na Memória 

104 * 

18B GPEN "ARQUIVO" AS «1 L0N=128 

108 FIFID #1„PR AS N$,50 AS E$,5 AS G$. 

17 AS MÍ, 2 AS F$,4 AS V$. 

7 AS T$,14 AS G$,9 AS li 
110 FIELD #1,128 AS X$ 

112 N = LOFÍ 1 ) / 128 
114 RIM G$(N) 

1 1 G FOR REG=1 TO N 
118 GET 1 ;REG 

120 G${f?EG ) = X$ 

122 NEXT REG 
1 26 K = N 

1 30 x - 0 

13? ZL =CV5Í Ml G$E G${ 1 >,35,4)1 

134 FDR 3=2 TO K 

136 ZH = CVS{MID$[G$UK95,4M 

138 I F ZKZH THEN SWAP G$(JKG*(J-1) = 

X = 1 s 
ELSE ZL^ZH 

140 NEKT J 
1 42 K = K - 1 

144 I F X=1 ANO K >2 THFN GOTO 130 


A vantagem desse procedimento é que seré efe- 
tuada apenas uma óniea leitura e uma u rn c a gravação 
dos registros, mas, na matéria das aplicações, iremos 
deparar com o problema da área Hvre na memória para 
podermos armazenar todas as informações. 

No Cadastro acima, cada registro acupa 1 EB 
bytes. Essas informações, quando definidas na memória, 
na forma de strings, passarão a ocupar 3 bytes a mais 
por variável, o que fará com que cada registro de 128 
bytes, quando transferido para a variável G$, ocupe 
í 1 PB t 3 ) = 131 bytes na memória. 

Vamos calcular a quantidade de registros que 
poderão ser armazenados na memória. 

Supondo que a memória do seu computador, des- 
contado o espaço ocupado pelo programa de ordenação, 
disponba de 20. G08 bytes livres, a que pode ser cons- 
tatado peio comando PRiN T FREí”*'), a quantidade máxima 
será de 20000/131 = 152 registros na memória, o que é 
muito pouco para a maioria das aplicações. 


£4 


Lima das saídas seria a de ss aumentar o tarra 
nho da memória dc seu computador, mas isso nãa é fácil 
nem barato. 

íicsia, então, a alternativa de ordenação j n - 
direta, armazenando apenas . as informações que farãu 
parte da chave de ordenação. Nest3 alternativa, o pro- 
grama deve efetuar os seguintes passoss 


1 ~ leitura de todos os registros, definindo, 
na memória, uma variável com as informa- 
ções que compõem apenas a chave de orde- 
nação . 

P - utilizar um algoritmo que ordene um ve- 
tor de posição, que após a ordenação, 
possua a posição relativa dos registros. 

3 - Trocar as posições relativas dos regis- 
tros no arquivo, iendo o registro em um 
endereço e gravando-a nc endereço indica- 
do pelo vetor de ordenação. 


Nesta alternativa, a área livre da memória 
sera usada para o armazenamento somente da chave de 
ordenaçao e nao para o registro todo. Para 3 ordenação 
de 500 registros segundo 0 númeru de telefone neces- 
sitaremos de (7 + 3) * 500 - 5.000 bytes na memória. 

Se a chave for constituída de CFP + TELEFONE 
necessitaremos de (5 + 7 + 3) * 500 - 7.500 bytes na 
memor la. 

Se a chave for constituída pelo endereço ne- 
cessitaremos de {50 + 3] * 500 = 26.500 bytes, 0 que, 
e v i de nt eme n t e , só teremos quando a memória for incre- 
mentada com mais módulos de expansão. 

Esgotadas as alternativas de ordenação total 
ou parcial na memória, restarão as alternativas de or- 
denação d i reta no di sen . 

& técnica de se efetuar a ordenação direta nn 
disco. isto e, comparando 2 registros de cada vez e 
trocando ou não suas posições a cada comparação, deve 
ser utilizada somente em casos extremos, pois esta 
técnica Irá promover uma grande troca de posições dos 
registros, e isso irá diminuir, consideravelmente, a 
confi ajj i I i datfe nos dados, tendo em vista que em cada 
gravaçao, existe 0 risco de 0 cabeçote de gravação nao 
conseguir gravar a informação com a fidelidade neces- 
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sária, atém de aumentar con 5 i der ave Imer te o tempo de 
ordenação por causa da grande quantidade de leituras 
e gravações que serão necessárias. 

Antes de partir para esse caso extremo, o 
programador deve pesquisar a eficiência cte outras a l ^ 
ternatívas, tais como dividir n arquivo em várics ar- 
quivos menores, ordenar individual me rte cada m deles 
e, após as ordenações, juntar novamcntc todos esses 
arquivos em um único. 

Por exemplo, desejando -se ordenar um Cadastro 
com 1,000 Funcionários, tendn cada registro o compri- 
mento de 67 bytes, iremos necessitar de um espaço na 
memória de (67 + 3) x 1,000 = 70.000 bytes, o que tor- 
naria inviável a ordenação na memór ia, Porem, se esse 
arquivn for dividido em 4 outros arquivos menores, ca- 
da um desses outros arquivos irá ter em média 

1 . 000 / 4 = £50 r eg i s tros , 

de modo que o espaço necessário na memória, para a üfy 
de nação de cada um desses arquivos separadamente , será 
de { G7 t 3) x £50 = 17.500 bytes, o que terna viável a 
ordenação. 

Vejamos os passos dessa técnica: 


1 - Analisar os Nomes no Cadastro, tentardo 
estimar a distribuição percentual da primeira letra 
dos nomes. Assim, descobrimcs, por exemplo, que £5% 
cios funcionários tem n nome cumeçando com as letras 
de A a E, mais 25% com as letras de Fale 25% com 
as letras de M a P. 


2 - Executar um programa cus, a partir do Ca- 
dastro, crie 4 novos arquivos, para onde serão trans- 
feridos os dados cadastrais, em função da primeira le- 
tra do nome. 


98 WAXFILE5 = 5 

1 m OPEN "A= CADASTRO- ARQ" AS Hl LEN*G7 
182 FIELD #1,67 AS G$ 

184 HEG = LOK1 \ / 67 

10R OPFN "A=PARTE_A" AS #2 LEN=67 

\m FIELD #2,67 AS GA$ 

118 OPEN "A=PARTE-B” AS #3 LEN=B7 
112 FIELD #3,67 AS GB$ 

114 OPEN "A = PARTE, ET' AS #4 LEN=67 
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116 FIFLn #4,67 AS GC$ 

118 OPEN ”A; PARTE. D" AS #5 LEN=67 
120 F I ELO #5,67 AS GD$ 

122 GA = 0 

124 GB = 0 

126 GC = 0 

128 GD i B 

130 FOR N=t TO AEG 

132 GET #1.N 

134 I F LEFTÍÍG$,1 K="r THFN GA=GA+1 . 

PUT #2, GA , GOTO 142 

136 IF LEFTÍt G$, 1 )<=”L" THEN GS=:GB+1 : 

PUT #3, GB s GOTO 143 

138 I F LEFT${ G$, 1 )<s”P" THEN GC=GC+i s 
PUT #4, REGC = GOTO 142 
140 GD = GD+1 : PUT #5, GO 
142 NEXT N 
144 CLOSE 
146 END 

3 - Executar o programa de ardeiraçãc na memó- 
ria em cada um desses 4 arquivas criados. 


4 - Juntar todos os 4 arquivos ent um úiticu. 


Dos inúmeros algoritmos disponíveis para a 
ordenação na memória, podemos empregar um, muito co- 
nhecida, e amplamente empregado, que consiste em se 
comparar os elementos du cunjunto, 2 de cada ve? por 
exemplo GHAVE(m) e CMAVE(n). Nos casos em que CHAVE(m) 
for maior que CHAVE(n), um vetor de posição ORDEM(m) 
deve ser incrementado, indicando que o elemento m. 
sendo maior que o elemento n, deve ocupar uma ordem 
maior, o que será representado peio fato de ORDEM(m) 
ser ma i or que ORDEMí n ). 

0 núcleo do algoritmo será o seguinte: 


100 FOR Msl TO REG 
182 FOR N=1 TD REG 
104 IF CHAVE(MKCHAVE{N) THEN 
OROEH(N)=ORDEM(N)+1 
108 NEXT N 
10B NEXT n 
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Vejamos um exemplo prático do funcionamento 
desse a l gor i tmo : 

Ssjam 5 números dados na sequência; 47, 87, 
13, 86 e 10. Vamos dispor esses números segundo uma 
tabela, para que possamos acompanhar, etapa por eta- 
pa, o desenvolvimento do 'algoritmo. Em cada etapa, 
um número é comparado com os demais e nos casos em 
que o número que se compara for menor que o número 
comparado, o vetor ORDEM, correspondente ao número 
comparado é incrementado: 


1 

a 

3 

4 

5 

6 


( n I c i a Imente , o vetor 
ORDEM contém zeros: 
comparar o 47 com todos: 

comparar o 87 com todos: 

comparar o 13 com todos: 

comparar o BE com todos: 

comparar o 10 com todos: 


47 87 13 86 10 

0 0 0 0 0 

0 10 10 

0 10 10 

12 0 2 0 

13 0 2 0 

2 4 13 0 


Após essas comparações, o seguinte comando 
dará os números, na sequência inicial e na sequência 
ordenada: 


260 FOR 1=1 TO REG 

202 SAIDA(OHDEH{ 1 )+1 ) = GHAVEt I 1 

204 NEXT I 

280 FOR }=1 TO REG 

202 PR INT CHAVEt 1 ) . SA I I1A( 1 } 

204 NEXT I 


O vetor ORDEM(n) contém, em cada elemento, a 
posição relativa dos elementos da CHAVE após a ordena- 
ção. Obtido o vetor ORDEM, o programa poderá adotar 
uma das duas situações seguintes; 


1 - Utilizar o vetor ORDEM para poder, por 
exemplo, imprimir um relatório onde os itens apareçam 
em ordem, mas não alterar a ordem relativa dos regis- 
tros no arquivo. 


a - Utilizar c vetor ORDEM para efetivamente 
alterar a posição relativa dos registros ro arquivo, 
de modo que o arquivo ficará ordenado. 
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Na primeira situação, os registros do arquivo 
continuarão na mesma sequência em que se encontravam. 
A desvantagem é que se for necessário imprimir mais 
uma vez o relatório, os registros precisarão ser nova- 
mente ordenados, enquanto que a vantagem se resume em 
não se ter riscos de erros de gravações, viste que o 
arquivo é acessado somente para leituras. 

Na segunda situação, as posições relativas 
dos registros são alteradas, isto é, primeiro registro 
será gravado no logar do terceiro que por soa vez será 
gravado no lugar do segundo, este no quinto e final- 
mente, este no primeiro lugar, obrigando a uma leitura 
e a uma regravação de praticamente todos os registros 
do arquivo. 

Uma rotina que reorganiza os registros de um 
arquivo, em função da sequência contida em um vetnr 
ORDEM, tem o seguinte aspecto: 

93 MAXEILE5 = 2 

100 OPEN "ORIGEM" AS #1 LEN-56 

102 FIEI O (H, SB AS GO0 

184 ÜPEN "DESTINO" AS #2 LEN=56 

106 FIELD 02,56 AS GD» 

188 REG = LOFÍ 1 ) / 56 
110 FOR N - 1 TO REG 
112 GET 01. N 
114 LSET GDI = GO» 

116 PDT #2,0RDEM{N)+1 
118 NEXT N 


Gomo último recurso, esgotadas as tentativas 
de ordenação na memór i a, restará a alternativa de or- 
denação direta no disco. 

Um algoritmo» de ordenação direta no disco é 
apresentado a seguir: 


186 ' 

102 'Ordenacao na Disco 

104 ' 

106 OPEN "ARQUIVO" A5 01 LEN=128 
108 FIELD 01.94 AS A$,4 AS Z»,30 AS D» 
116 FIELD «1.128 AS T» 

114 K = LOFtl) / 128 
128 X = 8 
122 GET #1,1 
124 ZL = CVSÍZ») 
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t2G TL* = T* 

128 FOR J=2 TO K 
130 GET #1,J 
132 ZH = GVSÍ Z* } 

134 TH* = T* 

13G IF ZL<=ZH THEN ZL » ZH = 

TL* = TH* 5 
GOTO 14B 

138 LSET T* - TL* 

148 PUT #1,J 
142 LSET T* = TH* 

144 PUT mj-i 

14B X * 1 

148 NEXT J 
160 K * K - 1 

152 IF X-1 AND K>2 THEN GOTO 120 
154 GLOSE #1 
1 5fi END 


ORDENAÇÃO DF ARQUIUGS SEQUENCIAIS 

Tudo aquilo que foi visto nos parágrafos an- 
teriores. só se a p I ira a arquivas randômicos. pois as 
comandos de acesso direto a registros específicos do 

1 1 po j 

105 GET #1 .N 


nu ; 


107 PUT #2. ORDEHf I >+1 

só são possíveis em arquivos randômicos. 

Então, os arquivos sequenciais não podem ser 
ordenados? 

A priori, a resposta seria NÃO, pois não 
existe comando do BASIC para o acesso direto aos re- 
gistros de arquivos sequenciais, de modo que não é 
possível acessar, aleatoriamente, um determinado re- 
gistro do arquiva. Mesmo que existisse tal comando, 
os registros possuem tamanhos diferentes e como ire- 
mos "trocar" de posição registros de tamanhos dife- 
rentes"? o registro menor cabe no lugar da registro 
grande, mas o contrário será impossível. 

A solução mais prática é a de se transformar 
o arquivo sequencial em um arquivo randômico, ciassi- 
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ficar o arquivo randôrnica e transformá-lo. por fim. em 
arquivo sequencial novamente. 

100 MAXFILES = 2 

101 OPEN "ARQUIVO.SEQ" FOR INPIIT AS #1 
10E OPEN "ARQUI VD.RND” AS 12 LEN=70 

10fi N , = L 0 * 2 ' 8 AS °*' 4 * S C *- 2 AS Ot.B AS P0.50 AS H0 

108 INPUT #1 .DAT0,GÜD| J .QUAN. PREGO. HIS0 

118 LSET 00 = OAT0 

112 LSET C$ = COD0 

114 LSET Q0 = HKI0ÍOUAN) 

116 LSET P0 = MKD0( PR ECO) 

118 LSET H$ = HIST* 

119 N ■ N * 1 

128 PUT 42. N 

1EE IF NOT E0FÍ1) THEN GOTO 108 
124 REG = N 
126 GLOSE 41 

128 GCSUB xxxx : "Rotina do ordenação. 

129 OPEN "ARQUIVO.SEQ" FOR OUTPUT AS 41 

130 FOR N = 1 TO REG 
132 GET 42. N 

134 PfHNT 41 , Dl . C0 . CV I { Q0 ) . CVQ{ P0 ) , H$ 

136 NEXT N 
138 GLOSE 01 
148 GLOSE 42 
142 END 

TÉCNICAS DE ACESSO AOS ARQUTUOS 

0 acesso aos arquivas é uma atividade que 
consiste na leitura dos registros a procura de uma de- 
terminada informação que foi armazenada anter i nrmente 
em algum registro do arquivo. 

Por exemplo, sabemos que nn Gadastro de Cli- 
entes, exMste um registro com o endereço do Sr. Joa- 
quim de Oliveira. Dada a infnrmaçãn "Joaquim de Oli- 
veira", qual é o procedimento que □ programa deve se- 
guir para encontrar o endereço dn mesmo? 

.0 acesso aos arquivos é um assunto que muitas 
vezes não tem muito a ver com a forma de organização 
do arquivo, isto é, se sequencial oo randômico. 

A rotina poderá procurar □ registro desejado 
lendo um a um todos os registros do arquivo até encon- 
trar o registro procurado ou aplicar alguma técnica 
que permita "adivinhar" n número do registro ou pelo 
menos a região onde ele se encontra. 
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Vamos analisar os prohlemas de acesso, fazen- 
do uma analogia com um arquivo de fichas de papelão. 

Vamos supor que tenhamos em mãos um arquivo 
de clientes montado com fichas de papelão* e vamos 
supor também que essas fichas esta-o organizadas por 
ordem alfabética du Nome. 


Situação Is Qual e o cliente que reside na rua Ver- 
gueiro, 102 ? 


Se você não conhece os dados do arquivo* isto 
é, não tem nenhuma "dica" de por onde começar* a única 
maneira de encontrar tal ciente* será consultar ficha 
por ficha* confrontando a Informação "rua Vergueiro* 
1 8E" com o endereço que consta em cada ficha* até en- 
contrar a informação desejada ou até encontrar o final 
do fichário. 

Nesta situação* serão acessados em média N/2 

fichas. 


Situação 2: Qual é o cliente mais antigo? 


Como as fichas estão em ordem alfabética* a 
ficha do cliente mais antigo pode estar em qualquer 
posi ção * 

Neste casc* a procura é um pouco mais comple- 
xa que a procura apresentada na situação anterior* 
pois não temos nem mesmo a informação que deverá ser 
confrontada com a data de registro que coneta nas fi- 
chas. 

A não ser que seja utilizada alguma técnica 
"especial" em que seja possível determinar a pMori a 
ficha procurada* por exempfo pela cor um tanto quantu 
amarelada da ficha por causa da idade da mesma* a pro- 
cura deve ser realizada em 2 etapas* objetivando res- 
ponder as seguintes perguntasf 


1 - Qual a data mais antiga? 

2 - Qual o cliente com essa data? 


Para que a procura seja viável* devemos fazer 
determinadas suposições, pur exemplo* supor* inicial- 


mente, que o cliente mais antigo seja aquele da prt- 
mçirõ ficha, elegendo, desse modo, a data de cadastra- 
menTc dessa cliente como sentiu a reais antiga 

Feito isso, comparar essa data com a data de 
cadestramento do segundo cliente. Se essa nova data 
or ant e r I or aque I a adntada, passar a considerar como 
cliente' 5 aftt ' 9a a data de = ad a s t r ame ti to desse segundo 

, Repetindo-sc esse procedimento até a último 
registro do arquuro, saberemos qual é a dato mais an- 
Ttga, satisfazendo a primeira parte do problema 
fichas Nesta s i tuscão serão acessadas, em média, N 


Situação 3 : Ou a I é 3 idade do Silvio de Oliveira ? 


„ Sabendo que o fichário está em ordem a I fabé- 

3 ! 1 ( : hf) , :,0 J . ? ' 1 ? hão está, com certeza, na pri- 

meira metade do fie bário. Neste caso, a procura dave 
ser f 01 ciada a partir da metade do fichário, 

Casu não se encontre n nome "Silvio de Oli- 
veira , a procura pode ser encerrada antes do ftnal do 

ncoario, puis sabemos que 0 mesmo está em ordem alfa- 
0 et 1 c a - 

Nesta situação, serão acessadas, em média 
uma certa quantidade de fichas dependendo do "hnm sen- 
so daquele que manuseia 0 fichário. ' 

H 0 ? 0 S6 / ê * s,(istt!m no dia a dia, muitas si- 
tuações diferentes de acesso às informações de um ar- 

?r!ada e Par3 Cada Uma dtlas 6XÍSte uma Htn ' ,ca wo- 

de acesso^ 9 ' 6 in,portãncfa em se analisar as técnicas 

Lsr wm regístru de um arquivo, significa 
I r «£m'!ÍiI r UmS cer * a quantidade de bytes do disto para 

w rnemo r I ü F 

, t c ? fno se sabe, a conexão do drive do disco com 
rii?in°p ■ ltj pür + ifitermédio de um complexo cir- 

SHIoSiSídí qLI8 trafismitc b * +e a bíte a uma certa 

» jpíf t( . irnp,ica m dizer que o tempo gasto para 

abertura de um registro depeotíe do tamantío do regís- 

I ftf é I i zrnen t e , não existe uma maneira de íer 
aoenas u» parte to real atro . Em todas ao 1 ! , luras 
preciso fer o registro completn. 
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Desse modo, desejando-se diminuir o tempo 
gasto na busca de uma Informação, a única saída é ten- 
tar, de alguma forma, diminuir a quantidade de leitu- 
ras no arquivo, 

A análise da estrutura de arquivo juntamente 
com as maneiras possíveis de acessar as informações 
nele contidas deve resultar em um algoritmo de busca 
em que a quantidade média de leituras em disco seja 
diminuída ao máximo. 

Vejamos algumas das técnicas mais empregadas: 


ACESSO SEQUENCIAL. A ARQUIVOS 

A leitura dos registros é efetuada em sequên- 
cia, a partir do primeiro regitro, até encontrar o re- 
gistro desejado ou o final do arquivo. 


100 OPEN "MOVTO.ARQ" FOR INPUT AS #1 
10a INPUT "Qual o nome ";N$ 

S00 INPUT #1, NOME*. ENDE*, CIDADE*. ESTADO* 

202 if eofid then goto 400 

204 IF NQME$=N* THEN GOTO 300 
a»B GOTO 200 

300 PRINT ”*** ENCONTREI ***" 

302 PRINT "nome = ";N0ME* 

30-1 PRINT "endereço = ";ENDE* 

396 PRINT "cidade = ”, G IDADE* 

308 PRINT "estado = ESTADO* 

310 END 

400 PRINT "*** NAO ENCONTREI ***" 

402 END 


4,8.2 - Acesso Sequencial em arquivo randômico. 

A leitura das registros é efetuada em sequên- 
cia, a partir do primeiro regitro, até encontrar o re- 
gistro desejado ou o final do arquivo. 

100 OPEN "MOVTO.ARQ" AS «1 LEN=67 

102 FIELD «1,20 AS N*.3B AS E*,15 AS C*,2 AS F* 

184 REG = LOFf 1 ) / 67 

106 INPUT "Qual o nome ".NOME* 

200 FOR N=1 TOREG 
202 GET #1 ,N 

204 IF NOME*=N* THEN GOTO 400 
206 NEXT N 


104 


388 PRINT "»** NAO ENCONTREI ***** 
302 ENO 

400 PRINT ***** ENCONTREI ***** 
482 PRINT "nome = " ; N$ 

484 PRINT "endereço = " ; E$ 

488 PRINT "cidade * ";C$ 

408 PRINT "estado ■ " ; F$ 

410 END 


Lembrando sempre que a rotina de procura ge- 
ralmente nâo faz parte do núcleo principal do progra- 
ma, desenvolve-la a parte para ser acessada por um 
comando GOSUB. 

1488 ' — — 

1402 ' ROTPMOV. FNT = Rotina Procura um Movimento 

1406 * Esta rotina permite procurar um 
1408 ' determinado registro no arquivo 
1410 ' de Movimento. 

1412 ' R.H.Hatanaba 2S/04/87 

1416 REGI s 0 

1420 REGI - REGI + 1 

1422 IF REGI > MV1 THEN REG1 S @ : RETURN 

1424 GET «NARQ.REGl 

1426 IF 1$ e MO$ AND TIPO# o RV| THEN flETURN 
1428 GOTO 1420 

5AVE "ROTPMOV . FNT*\ A 


Salvar esta rotina para ser utilizada no sis- 
tema apresentado no capítulo 9. 


ACESSO DIRETO EM ARQUIVO RANDÔMICO 

A leitura dos registros é efetuada diretamen- 
te no registro desejado. Para isso é necessário conhe- 
cer o número do registro. 


108 OPEN "MOVTO.ARIT AS 01 LEN-67 

102 FIELD #1.20 AS N*,30 AS E$,15 AS C$.2 AS F$ 

104 MAX - LOFÍ1 ) / 67 

106 INPUT "Qual o numero do registro ” ; REG 
108 IF REG>MAX THEN PRINT"FOHA DO ARQUIVO" 


105 


GOTO 106 


282 GET #1.REG 

284 PUINT "nome = " ,H$ 

206 PRIKT "endereço = ",E$ 
208 PRINT "cidade = ";C$ 
218 PRINT "estado = ”;F$ 
212 END 


BUSCA BINARIA EM ARQUIUO RANDÔMICO 

A leitura dos registros é efetuada dividindo- 
se o arquivo em duas partes, daí o nome da técnica, e 
acessaudu-se a parte ande haja maior probabilidade de 
encontrar o registro* desejado, 

Pera que isso seja possível, o arquivo deve 
estar ordenado pelo campo onde é feita a procura. 

A grande vantagem da busca binária reside no 
fato de a quantidade de leituras necessárias ser bem 
pequena, pois enquanto que no acesso sequencial lê-se 
em média N/2 registros, na busca binária esse número 
cai para log2N, isto é, para um arquivo com 5.000 re- 
gistros, o acesso sequencial irá ler 2500 registros em 
média, enquanto que a busca binária irá ler no máximo 
17 regi stros. 


188 OPEN "CADASTRO . ARQ” A3 #1 LEN=67 
102 FIELD #1,26 AS CD$,15 AS C$,2 A5 F$ 

104 roa = tom j / 67 
106 INPUT "Qual o nome ” ; A$ 

288 GOSUB 1208 

292 IF Cl.fl THEN PRINT “m NAO ENCONTREI ***" , 

GOTO 106 

204 PRINT ”*** ENCONTREI ***” 

206 PRIKT C0$ 

208 PRIKT E$ 

210 PRINT G$ 

212 PRIKT F$ 

214 END 


MERGE 


HOTPROG.FNT" 


1288 ' - 

1281 ' ROTPRflC. FNT = Procura Material no Cadastro 

1282 ' — 

1263 * Se encontrar „ Cl sai com o n. do registro. 
1204 * Se nao encontrar. FIRST! volta com o n. do 
1285 ' registro onde devera ser encaixado o novo 
1266 ' registro. 

1287 ' 

1218 FIRST* = 1 

1212 LAST1 = HX1 

1228 Cl = INT{(FIRSTl+LASTl)/2] 

1221 IF Cl=8 THEN GOTO 1232 

1222 GET #NARQ. Cl 

1224 IF A$sCO$ THEN GOTO 1234 

1226 IF AOCDt THEN FIRSTl-Gl+1 

1228 IF AKCOS THEN LASTI=C1-1 

1238 IF FIRSTK-IAST1 THEN GOTO 1228 

1232 Cl = 8 
1234 RETURN 


SAVE "ROTPROC.FNT". A 


Salvar esta rotina para ser utilizada no sis- 
t ama apresentado no capítulo g. 

Não custa lembrar que as rotinas de procura 
devem, oa medida do possível, serem programadas fora 
do núcleo principal do crograma. 


BUSCA INDEXADA EM ARSUIW RANDoMICO 

Nesta técnica, t r aba I bamos com 2 arquivos 
distintos. 

0 primeiro deles, é o arquivo principal e 
contém todos os dados. 0 outrn, é o arquivo de índices 
e contém somente c campo de procura e o número de re- 
gistro correspondente. 

Vejamos como isso funciona, com um exemplo: 

Vamos supor que a arquivo contenda o Cadastro 
de Funcionários de uma empresa. Ora. tal tipo de ar- 
quivo é um arquivo que corsideramns "largo", pois cada 
registro ocupa uma quantidade considerável de bytes, 
por causa do grande volume de dados. 
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CAMPOS 


QUANTIDADE 
DE flYÍES 


- Nome do Func i onár i o 

- Endereço 

- CEP 

- C í tf ci d t; 

- Estado 

“ Data do Nascimento 

- Numero do R . G, 

- Número do GPE 

- Número da CTP5 

- Número do P \ 5 

* Cúdfgo do Banco para Pagamento 
“ Código do Banco para FGT5 

- Qtianti dade de DeperuJentes 
“ Data da Adm i ssão 

- Número de Registro (Chapa) 

- Código da Geção 

- Gód i go do Cargo 

- Galaria Inicial 

- Salário Atua! 


33 

53 

5 

Fi 
7 
1 1 
3 
1 1 
3 

q 

? 

r* 

■i 

5 

1 

"I 

3 


TOTAL - 181 bjtes 


Na emissão da folha de Pagamento, por exem- 
plo, para cada funcionário, o programa deverá consul- 
tar o cadastro para saber o nome do funcionário, entre 
outras coisas, pois todas as digitações de dados e 
cálculos são realizados apenas pelo número de regis- 
tre , 

Ora, se a empresa tem 1,000 funcionários, is- 
so significa que o programa irá acessar 1,000 vezes 
esse cadastro. 

Se o programa utilizar a técnica de acesso 
sequencial, pelo fato de no acesso sequencial ser fei- 
ta N/E = 500 leituras a cada acesso, o programa irá 
realizar um total de 1.000 X 500 = 530.000 leituras. 

Ge o programa utilizar a técnica de busca bi- 
nária, pelo fato de na busca binária ser feita logEN-7 
leituras a cada acesso, o programa irá realizar um to- 
tal de 1,000 X 7 - 7.000 leituras. 

Compar ando-se os dois tipos de acesso acima, 
vê-se que a segunda técnica representa uma economia 
sensível. 

Mas podem ocorrer situações em que mesmo es- 
sas 7,000 leituras, devido a largura da registro {181 


bytes ) chegue a consumir um tempo reíativamente longo, 
pois o tempo de ieitura de um registra é proporcional 
a quantidade de bytes que serio transferidos do disco 
para a memor i a , 

No caso em questão, deverão ser transferidos 
7,000 K 181 = I ,267.000 bytes, 

Para se poder utilizar a busca indexada, de- 
vemos criar um segundo arquivo contendo: 


CA KPOÍ> QUANTIDADE DE BYTES 

- o numero de Chapa 5 

“ 0 número do registro no cadastro q 

Este arquivo cujo registro ocupa somente 9 
bytes será conhecido como arquivo de índices. 

„ Para se localizar o nome dc funcionário cujo 

numero de chapa seja, por exemple, 437, o programe de- 
vera; 

1 - Acessar os registros do arquivo de índices 

aplicando a busca binária, até encontrar o 
funcionário de número 437, Nesse acesso serão 
transferidos em média 7 X 9 = B3 bytes. 

2 - Encontrado o funcionário procurado, pegar o 

número do registro do mesmo no Cadastre, 

3 - Acessar diretamento c registro nu Cadastro, 

Nesse acesso serão transferidos os 161 bytes 
do f une I onár i a , 


Como se ve, na busca indexada serãt transfe- 
ridos, para cada funcionário, 63+181-244 bytes ou, se 
considerarmos a emissão total dos 1,000 funcionários, 
244.080 bytes, o que é bem inferior aos 1,267,000 by- 
tes da alternativa anterior, 

O uso de 2 arquivos que embora distintos se 
referem aa rnesmo conjunto de dados, requerem certos 
cu i dados i 


1 - üda vez que houver uma inclusão ou exclusão 
de algum registro no Cadastro, o arquivo de 
índices deve ser alterado também. 
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2-0 arquivo de índices deve ser sempre ordenado, 

Mas, em compensação, apresenta algumas vanta- 
gens * 

1 - Os registros dc arquivo principal podem estar 

ordenados de qualquer forma, pois quem garante 
o ordenamento é o arquivo de índices- Essa é a 
grande vantagem da busca indexada, pois, ha- 
vendo a necessidade de se incluir um novo fun- 
cionário no Cadastro o registro correspondente 
a esse novo funcionário poderá ser simplesmen- 
te adicionado no fim do arquivo principal. 

2 - Pode-se ter vários arquivos de índices, um or- 

denado pelo número de Chapa, outro peio nome 
do funcionário, etc. Na situação de se desejar 
o salário, tendo-se a número de chapa, bastará 
acessar o arquivo de índices ordenado pelo nú- 
mero de chapa, enquanto que na situação de se 
des e j r ü salário tendo-se o nome do funcioná- 
rio, bastará acessar o outro arquivo, isto é, 
o arq fvo de índices ordenado peio nome de 
funci nários. 

A seguir são representados os esquemas de 
acesso das várias técnicas de acesso apresentadas. 


ACESSO SEQUENCIAL 

Cadastro 


Procura 



reg i st ro 1 


registro 2 

— 

registro 3 

— 

■ B 8 


* - ■ 


■ * J 


■ 1 » 


Registre Procurado 


IIP! 



ACESSO OIREÍO 


Procura 


Cadastro 


registro t 


registro 2 


registro 3 


Registro Procurado 


BUSCA BINARIA 


Procura 


Cadastro 
registro 1 
registro 3 
registro 3 


Registro Procurado 





BUSCA INDEXADA 


Procurado 


í ri cf 1 c e 

Cadastro 



registro 1 



registro 2 



registro 3 



4 4 4 


— 

- f - 






■ , . 


Reg í st ro 
Procurado 


CUIDADOS ESPECIAIS 

Nas operações de ordenação de arquivos, esta- 
remos operando com vários arquivos em disco, e tais 
operações, dependendo do tamanho de cada registro e da 
quantidade total de registros no arquivo, poderão con- 
sumir um tempo re I at I vamente longo. 

Para que pequenos acidentes não provoquem a 
perda irremediável do arquivo, o programador experien- 
te deve tomar certas precauções. 

A seguir, relacionamos alguns conselhos! 

t - A ordenação está demorando muito e não 
sabemos se a mesma está sendo executada 
corretamente ou se houve alguma pane no 
sistema. 

Não custa nada ac programador incluir no pro- 
grama uma mensagem para ser apresentada a intervalos 
de tempo regulares, informando o estágio em que se en- 
contra a ordenação. 

Esse procedimento,' além de tranquilizar o 
operador, dando-lhe a certeza de que tudo está corrert- 



tfo fcem, permite uma avaliação do tempo que a ordenação 
ainda vai demorar. Por exemplo, podemos produzir uma 
tela c orno a mostrada a seguir. 


Já foram ordenados 10 registros. 
Já foram ordenados ciÕ registros. 
Já foram ordenados 39 registros. 
Já foram ordenados 40 registros. 
Já foram ordenados 50 registros. 
Já foram ordenados 6@ registros. 
Já foram ordenados 70 registros. 
Já foram ordenados 80 registros. 

■ ■ -v ' ' . .•••• ;:••• *7 !>j&i 



Caso, o programador deseje apresentar algo 
mais profissional como : 



Poderá embutir nu programa a segulte rotina: 


5350 

5352 

5354 

5356 

5358 

5360 

536B 

5364 

5366 

5368 

5370 


HAPAACG.FNT a Mapa de AciMpankaMnto 


Mostra nas linhas 17 e 1» ima escala 
para ser apresentado o estagio de 
evolução de ciclos. 

LÜGATE 5,17 

PRINT "@t“5PAGE*n3r581"SPÃCE*m )“18«" 
LQGATE 5. 18 

PRINT GHR$( 1 £4 ) ; c FUH N=1 TO 6. PRINT SPACE$(4) 
GHR*(1M);sNEXT N 
RETUftN 


5 AVE “HAPAACG.FNT'. A 

Salvar esta rotina para ser utilizada no sis- 
tema apresentado no capítulo 9. 


113 




Naturalmente, para que o mapa possa ser uti- 
lizado por diversos trechos do prugrama, a parte que 
desenha o mapa inicial deve ser programada fora do nú“ 
c I e o principal do programa. 

2 - Durante a ordenação de um arquivo, poderá 
ocorrer alguma pane no sistema provocando 
a perda dc arquivo, 

Para prevenir-se contra essas situações desa- 
gradáveis, criar um arquiva provisório, cópia do ar- 
quivo principal, e executar a ordenação em cima do ar- 
quivo provisório. 

Para automatizar esses procedimentos, incluir 
os comandos dentro riu programa. 


500 r 

50£ 'ORDENACAD 
504 

506 GOPY "CADASTRO- ARQ" TO "ARQUIVO.PRV" 
508 OPEN "ARQUIVO.PRIT AS #1 LEN=57 


Apos â ordenação, caso não tenha ocorrido ne- 
nhum erro, eliminar o arquivo principal e trucar u no- 
me do arqui vo pr ov i sór í oi 


614 Kl LL "CADASTRO. AHQ" 

61 G NAHE "ARQU I VD ,P3V^ AS "CADASTRO. ÂRQ“' 


3-0 arquivo provisório deve ter um nome 
sugest i vo, como : 

ARQU I VO. PR V 

pois se houver esquecimento em eliminá-lo 
do disco, e pos t a r i orment e o usuário es- 
tiver analUando o conteúdo com o comando 
FILES, saberá, I med i a tamen te que se trata 
de um arquivo provisório e assim poderá 
ei t m i n ã - 1 □ sem medo, com o comando KHL. 
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=1 - flo criar, dentro do programa, um novo ar- 
quivo, verifique se já não existe um 
outro arquivu^uum o mesmc nome. Lembre-se 
que em situações em que o sistema opera- 
cienai encontra no disco um arquivo com o 
mesmo nome, os dados serão gravados por 
cima, per de rdo-s r aqui ío que estava anta- 
riormente no ergui vo. 

ô função L DF permite saber a quantidade de 
bytes ocupados peio arquivo, Um arquivo cujo conpM- 
mento seja diferente de ZEFQ é um arquivo que já exis- 


314 PRINT "Vemj abrir um arquivo novo” 

315 OPEN "AROHIVO ARr FOR APPEND AS *1 

31 B IF LOF( 1 )>B THEN PR I MT *'Ja existe um outro 
arquivo com o mesmo nome” 


o comando DNERRüR=65 permite saber se o ar- 
quivo já existe: 


211 ON ERROR GOTO 688 

212 OPEN "AROU I VO. ARQ" FOR APPEND AS #1 


B80 IF ERH=65 THEN PRINT “Ja existe um outra arquivo 

Com o mesmo nume." 


0 comando ON ERROR = 53 permite saber se o ar- 
quivo não axiste : 


211 ON ERROR GOTO 608 

212 OPEN "ARQUIVO. ARO" FOR APPEND AS #1 


600 IF ERR*53 THEN RESUHE 


5 - Verifique a quantidade de bytes disponí- 
veis no d i sco . 
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É bastante irritante, um programa de ordena- 
ção levar 2 horas para ordenar o arquivo e quando es- 
tiver quase no fim, esgotar a capacidade de armazena- 
mento do disco. 

Porisso, é bastante conveniente verificar, 
antes de mais nada, se há espaço suficiente para caber 
o novo arquivo. 

El 1 IF DSKFf 1 1*1 024<REG*67 THEN PHINT "Nao lia espaço 

suficiente neste disco, coloque outro 
menus cheio.” 


6 - Não esqueça de fechar a porta do drive 
após i nser i r o disco. 

A atitude de fechar a porta do drive, ge.rai- 
mente é automática e nem sempre pensamos nisso, exis- 
tindo o risco de nos esquecermos. 

Imagine que o programa gaste um tempo relati- 
vamente grande para ordenar as registros de um arquivo 
que esteja no drive A : e após esse tempo efe irá gra- 
var no drive Eh, um novo arquivo, com os registros já 
ordenados, e. se nessa hora a porta do drive estiver 
aberta, o sistema operacional irá acusar tal esqueci- 
mento com uma mensagem do tipo = 

Erro de Disco 

e todo o trabalho de urdenação estará perdido. 

Para evitar esse tipo de problema, faça com 
que o próprio programa verifique a existência ou não 
de um disco no drive 9:, com algo do t i po = 


211 OH ERRDR GOTO 808 

212 OPEN “ ARQUIVO. ARQT FOR OUTPUT AS #1 


600 IF ERR=6B THEN PHINT "Disca protegido." 

602 IF ERR«7B THEN PRINT "Falta disco no drive." 


Esses códigos de erro, e maio alguns relacio- 
nados em seu manual {*), são produzidos na execuçãc do 
comando OPEN, quando o sistema operacional consulta u 
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diretória do disco. Ocorrendo uma condição anormal, o 
sistema operacional ativa a instrução ON ERROR e 
transfere o comando para a linha indicada no comando. 

O feitor poderá desenvolver uma "super-r a t i - 
na" que preve todas as situações que poderão ocorrer 
nos acessos ao disco para orientar o usuário de como 
proceder em cada uma delas, 

7 - Nas situações em que o programa solicita 
ao usuário um nome para o arquivo qua se- 
rá criado, facilite o trabalho do usuário 
mostrando os arquivos iá existentes no 
disco, com o auxílio do cornado FilFS; . 


680 CL5 

682 FILES "*.AR(T 

60-1 PRINT "Fornecer um nome para o arquivo, diferente 
dos acima (máximo 8 caracteres)." 

606 I NPIIT m 

608 ! F LEN(N$)>8 THEN GOTO 604 
G10 ARQÍ = N$ + ".ARO" 

6T2 OPEN AROS A5 #1 LCN=G8 


( * ) Para uma relação completa dos códigos de erro con- 
sulte o manuai de sua interface. No caso das iter- 
faces para MSX, existem 3 tipos: 

MICRDSOl. { a seus clones tipo DDX, TROP1C, LASER..) 
Manual, SISTEMA DE DISCO PARA MSX IALEPHI - Ranato 
da Silva Oliveira- Rubens Pereira Silva J r 


SHARP 

Manual, USANDO O D ! SK DR M/E NO MSX ( ALEPH )- Rubens 
Pereira Silva Jr 

TECHNOAHEAD E NOR (padrãn MSX i n t e r nar. i nna I ) 
Manual, DRIVES LEOPARD DE 3 1/2” í ALEPH)- Carvalho 
Jr- Oliveira- P i az2 i 

ObS; Esta interface serve também para drives de 
5 1 tf" 
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Entende-se como "saída" toda e qualquer mani- 
festação do programa, quando determinadas informações 
são encaminhadas a um periférico conectado 30 computa- 
dor . 

\í ej amos algumas sugestões para melhorar a 
perfütnance dos programas. 


LIMPEZA DE TELA 

0 comando CLS (no HSX e PC) ou 0 HOME (no 
MBÀSIC) apaga instantaneamente toda a tela do vídeo. 

Existem situações em que desejamos apagar so- 
mente parte da teia. Para essas situações 0 programa- 
dor poderá desenvolver uma série de rotinas, cada uma 
delas adequada a determinadas situações: 


100 GLS 

101 FOR N=53 TO 1 STEP -1 

105 LOCATE .H SPRINT STRINGIt 39 
183 NEXT N 

104 C = 20 

1 05 L = 11 
1 86 P = <5 

107 FOR I * C-P TO C+P 

100 LOCATE C-P.l-S = PRINT SPG(1 ) 


318 


109 LOCATE C+P,8-9 3 PR0NT SPCÍ1) 
119 S 

111 LOCATE C-PA-P : PftlHT SPCÍ2*P) 
lie LOCATE C-PA+P i PRIMI 5PGÍ2*P) 

113 P = P * 1 

114 IF P<10 THEK GOTO 107 


ESPAÇOS EM BRANCO E PROCESSAMENTO 

Em todas as saídas formatadas, os espaços em 
branco entre as informações consomem tempo para serem 
Impressas, tanto no vídeo como na Impressora, 

Se o programador comparar o tempo gasto para 
a impressão das 2 teías seguintes: 



! Artonio de Souza 

345, M 


| Carlos Mendes 

L24Í.M 


j En í o Freitas 

47,3® 


Juse Cdrlos de Oliveira 

412,40 

& 

Ivanildü Bonés de Carvalho 

18,00 


345,0$ Ant oo í o de Souza 
i *246 p C arlos HendEs 
47*3$ En r o FreiUs 
433*4$ Jose Carlos dE Oliveira 
38*0$ Evanildo Gdbês de Carvalho 


verificará que uma tabeía do segundo tipo será impres- 
sa num tempo sensivelmente menor. 


CARACTERES ESPECIAIS 

Os caracteres especiais reduzem a velocidade 
de impressão, 

às impressoras matriciais apresentam a carac- 
terística ds poderem imprimir com maiores densidades 
que o padrão de 10 caracteres por polegada. 

Cuidado ao utMizar esse recurso, pensando em 
aumentar a quantidade de caracteres por linha, pois, 
geraimente, os caracteres do tipo comprimido reduzem 
em muito a velocidade de impressão. 
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0 me I h □ r mesmo e analisar a real necess i dade 
das informações no relatório e imprimir somente o ne~ 
cessar i o * 


TIPOS DE ESPAÇOS EM BRANCO 

Existem diversas alternativas para se obter 
espaços em branco e, aparentemente, qualquer uma das 
funções abaixo pode ocasionar o mesmo efeito; 

PftINT " 

PRÍNT SPAGE$(BS 
PR INI 5PG(B) 

PRÍNT STRING$(6,32) 

PRÍNT TABÍB) 

Em re íatór i os extensos, pequenas diferenças 
de tempo ocasionadas pela escolha inadequada da fun- 
ção, poderão provocar um acréscimo de tempo considerá- 
vel para imprimir o relatório todo* 

Recomenda-se efetuar diversos testes para se 
conhecer os tempos. Nos testes que realizei, encontrai 
os tempos relativos seguintes: 


FUNÇÃO 

TEMPO 


Wf f# 

277 


SPACE$(10) 

280 


5PC( 1 0 } 

102 


STR I NG$( 32, 10) 

285 


TflBt t 0 ) 
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O COMANDO PRÍNT « 

Os comandos PRÍNT e L PR INI são usados para a 
impressão no vídeo e na impressora r cspcc t \ vamc r te * 

Existem situações em que gostaríamos de esco- 
lher o local da impressão, sem alterar o programa. 

Existam também situações em que queremos en- 
viar um relatório para a impressora mas e ! a está que- 
brada ou inoperante por algum outro motivo, A solução 
k "imprimí-lo" no disco. 

I sso é poss i ve I ? 



SIM, isso é possível, com o uso do comando: 

PB) MT | 


100 

101 

102 

103 

184 

105 

UB 

117 

108 

110 

112 

114 


PRINT "Es colha u local da 

PRINT "1 - Ha Video" 

PRINT "2 - Na impressora" 


impressa»:" 


KS = INKEY0 = IF K*=”** THEN GOTO 104 


JF K$<"1” OR K$>"2" THEN GOTO 108 


IF K$b" 1 " THEN SAI DA* = "CRT=" : 
ELSE SAIOA* = "LPT t ” 
OPEN SAIOA0 FOR OUTPUT AS #1 
PRINT 01, "Belo Resultado" 

ENO 


Além dessa vantagem, existem situações em que 
a relatório deve, obrigatoriamente, ser emitido para 
que outros programas possam ser executados, mas, por 
uma incrível coincidência ou infelicidade, a impresso- 
ra está quebrada. 

Se o programa fealiza a impressão na impres- 
sora com comandos IPRINT, o programador estará em uma 
bela enrascada. 

Veja como conseguir uma flexibilidade ainda 
maior, analisando a sugestão a seguir: 


180 PRINT "Escolha o local da Impressa»:" 

181 PRINT "I - No Video" 

102 PRINT *'2 - Na Impressora" 

103 PRINT ”3 - N» Disco" 

184 K$ s INKEYt , IF Kl***" THEN GOTO 194 

185 IF K»<"1" OR K0>"3" THEN GOTO 100 

186 IF K0 s "1" THEN 5AIDA$ = "CUT:” 

187 IF K0 s "2" THEN SAIOA* s "LPIV 

10B IF K* - "3" THEN SAIO A* = "ARQUIVO" 

189 ' 

110 OPEN SAIDA0 FOR OUTPUT AS 01 

111 PRINT 01 ."Belo Resultado" 
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MENSAGENS DE ERRO EM PROGRAMAS 


Em um programa que apresenta diversas mensa- 
gens de erra, e conveniente programar a apresentação 
da mensagem fora do núcleo principal dn programa: 

S3m ’ - 

538E * ERRO,FNT ^ Mensagem de Erro 

538*1 * 

5386 LOGATE 8,19 

5388 1F LENIER$K>8 THEN PRJNT ERÍb 

EISE PR INI ”*** DADO INVÁLIDO *«" 

5310 GÜSÜB 5618 

631 a GOSUB 5208 

5314 LOGATE 0, 1 9 = FR SHT SPCÍ30) 

5318 flETURN 

SAVE "ESRO.F*rr,Â 

Salvar esta rotina para ser utilizada no sis- 
tema apresentado no capítulo 9, 


A FUNCSO USING 

A função USINC, utilizada nos comandos PR 1 NT , 
PRINT* e LPRINT permite que os dados que serão apre- 
sentados sejam formatados conforme determinados pa- 
drões, melhorando a estética daquilo que é apresentado 
ra tela ou na impressora * 

Para que isso ocorra, basta que coloquemos 
entre o comando PítlNT e o dadn a ser impresso, a pala- 
vra USING seguida de uma string de caracteres especi- 
ais, conhecidas como moscara de edição. 

Tais Garacteres são os seguintes: 

I Apresenta apenas a primeiro caractere da 

s t r i n g . 

\\ Apresenta tantos caracteres da strlng 

quanto os espaços em branco entre as â. 

& Apresenta a strins completa, 

# Indira as posições em que os algarismos 

deverão ser apresentados. Pode ser inse- 
rido 1 ponto no meio da sequência de #s f 
para indicar a pcsição do ponto decimal. 
Pude ser culucadc um sinal + cu ^ no 
início da sequência para indicar se de- 
sejamos que o símbolo + ou seja im- 
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í mpr j m f rdc 
n número ; 


+123,4 
-t 23 .it 
+123.4 
-123.4 
+123.4 
“123.4 
+123.4 
-1 23.4 
+123.4 
-123.4 


pressa na frente do número nas casos em 
qje ele fur positivo ou negativo, e 0 
Símbolo * para que os espaços na frente 
da número sejam preenchidos. 

Exemp I os : 


com a máscara: obtem-se: 


**♦*.#* 
+#f : v# . ##■ 
+*♦*#.## 
♦m.ti 
-##*#.## 
****##. *# 
******.♦« 
+*****&.•# 
+**§##*.** 


123.40 

-123.40 

+ 123.40 

- 123.40 

- 123.40 

— 123.40 
**# 123.40 
**-123.40 
***+123,40 
***-123.40 


Et í St em outros símbolos que provocam formata- 
ções diferentes, como já deve ser de conhecimento do 
programador , 

Analisando as diversas máscaras utilizadas em 
um programa, í remas verificar que não existe ama gama 
ísiHTo grande de máscaras diferentes, nc mesmo progra- 
ma. pois muitas delas são repetidas. 

Desse ntodo, em vez de ss usar: 

SSÈ PRINT ‘"Gap 5 ta I de t 

PRINT 3ISING "S»ii«ftft.»«~:CAP 

ESI PB INI "rsa taxa de - 

PRINT ÜSING "#####*. #r* ; TM< 

ES2 PRINT ^amortizado am : 

PRINT ÜSSNG ; PER 

E83 PRINT "resultara nas seguintes prestações-"' 

684 EOR N>1 TO PER 

B65 PRINT "p r estacao” íN;".”; , 

PRINT USING "######.#§'' ; PRE{ N) 

nm next n 

„ 2ode ser usado uma forma mais elegante e eco- 

nômica, do t t po : 

S00 F1 $ = "##*###.##" 

681 F2< = 

882 PRINT "Capital de **, 5 PRINT USING EU; GAP 
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603 PRINT "na taxa de s PRINT USING F1S;TAX 

604 PRINT "amortizado mt = PHINT LJBJNG F2*,PER 

605 PRINT "resultara nas seguintes prestações*" 

606 FOR N=1 TO PER 

B07 PRINT ~prestacao”;N; p V^ :PRINT USING F1* ; PRE(lfí 
606 NEXT N 


IMPRESSÃO OTIMIZADA NA TELA 

Quando estamos trabalftando com uma tela de 
digitação de dados, onde existem dados lixos e dados 
variáveis, a impressão de todos os dados na tela pode 
consumir afguns significativos segundos* Um digitador 
profissional puderá sentir essa pequena diferença e 
isso será o suficiente para que o programa seja clas- 
sificado de " lento" * 

Um boa técftica seria separar a impressão dos 
dados fixos, da Impressão dos dados variáveis. 

Observe a seguinte tela de digitação: 


0123455789O1?34RE7RQfl1 P34E678901 234515/tt 


1 

Cad as trame nto de Funcionários 

tela: 01 

t 

3 

4 

Nome : * . > 

NF$ 

5 

c 

Endereço :.*,.**. 

EF$ 

n 

7 

CEP i C t dade : *,....* 

EC$, EM$ 

Ü 

Estado;.. Nascimento;**/.,/,, 

EE$, NT$ 

9 

RG = C i C : . 

Gf $ , FF$ 

is 

CT PS í serie:., emissão;../,,/,. 

CT$,3T$,DT$ 

11 



1? 

Registro; em ; ../../,. 

NR$,DR$ 

13 

cargo : 

crí 

14 

Se C30 : ... 

5F$ 

15 

s a i a r i o : * , . * 

SLÍ 

15 



17 

p I Q . 

f 1 W B * * # ■* 4 B * ■ P P H H ■ ■■ 

MPÍ 

18 

Ij a n c o i . . , agencia:,... data;./,./.. 

BP $ , AP$, OP$ 

19 

depenCendentes : , , 

ND$ 

20 



21 

FGTS: . . 

FG$ 

22 

banca : . * , agencia:...* data ;../.,/** 

BGÍ, AG$,DG$ 

23 



24 




124 



Observe a listagem a seguir onde os dados va- 
caveis sao impressos em uma parte distinta da impres- 
são dos dados fixosi 


260 ' _ _ 

S2 * Inicial izacao de Variavels 

204 _ 

iW GLEAR IBM 

230 NF$ a STRINGK 30,".") 

240 EF| a STRINGK 20,".") 

250 EC« = STR INGK 85," .") 

251 EH$ ■ STR INGK 20,”.’*) 

252 EE$ s STRI NG${ 82," ," ) 

253 NT$ = " 

254 GF$ a STRINGK 09,".") 

255 FF$ = " - - 

256 CT$ a STRINGK 86,".”) 

257 ST0 = STRINGK 02,”,"( 

25B DT$ a 

268 NR0 a STR INGK 05,".") 

278 Dfif s 

2B0 GF$ = STRINGK20,”.”) 

282 SF$ - STR INGK 20,”.") 

284 SL$ = " 

286 NP$ r STRINGK 20!"!”) 

288 BPÍ = STRING*(03,".") 

230 AP$ a STRINGK04,".”) 

292 DPI a 

234 ND$ = STR INGK 02,".") 

236 FG$ = STR I NG${ 02," ) 

238 BG$ = STRINGK 83,".") 

30* AGÍ - STR INGK 04,"."] 

382 7 ” 

48i ’ — — 

402 ’ Dadas Fixas 


404 ’ 

418 GLS 

411 PRINT 

412 PRINT 

414 PRINT 

415 PRINT 
41 fi PRINT 
417 PRINT 
420 PRINT 
422 PRINT 
424 PRINT 
«6 PRINT 
428 PRINT 


SPGÍ4) Cadastraaente de Funcionar i 
STR INGK 38, "a") 

"No«e 1" 

"Endereço 1 ” 

"CEP j"SPC{ 8)"G i dade 

'Estado s" SPC{ 3 )"Nase intento." 

”RGi”SPCÍ 10 )”CIG,” 

"CTPSí"SPC(7)"serÍ8«”SPC{3)”Mnissao 


os 


f* 


iff 
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438 PRINT 

433 PRIHT "Registro :"SPG< 6 )"&«" 

434 PRIHT "cargos;" 

436 PRIHT '"secaos” 

43 R PRIHT "salarlDi" 

448 PRIHT 

443 PRINT "PIS.” 

444 PRINT "baiico.”SPC(4)"ag«Beia«"5PG(51"d8tai" 
446 PRINT "dependentes:" 

448 PRINT 

458 PRIHT "FGTS:" 

453 PRINT "BANCO :''SPCl 4 )"agene i a j" 5PG( 5)"daf a *” ; 

see - ■ 

583 ' Dados Variavais 

584 ’ 

586 LOCATE 5, 4,PRINT NFJ 
588 LOCATE 9, 5, PRINT EF$ 

518 LOCATE 4. 7=PRINT EC# 

513 LOCATE 17. 7:PRINT EM» 

514 LOCATE 7, 8=PRINT EE» 

51 B LOCATE 51. 8. PRINT NT$ 

51 B LOCATE 3. 9, PRINT GF$ 

538 LOCATE 17. 9:PRINT FF» 

533 LOCATE 5 . 10. PRINT OT* 

534 LOCATE 18, 10. PRINT 5T» 

526 LOCATE 29.18iPHINT DT» 

538 LOCATE 8 . 13. PRINT NR» 

538 LOCATE 18.13:PRINT Dfl» 

532 LOCATE 6.13:PRINT CF» 

534 LOCATE B. 14, PRINT SF» 

536 LOCATE 8.15.PRINT 5L» 

538 LOCATE 4. 17. PRINT NP» 

548 LOCATE G.18.PRINT BP» 

542 LOCATE 1B, 18 .PRINT AP» 

544 LOCATE 3B.1B:PRINT DP» 

546 LOCATE 13. 19. PRINT ND» 

54B LOCATE 5, 21. PRINT FG» 

550 LOCATE 6, 22. PRINT BG» 

552 LOCATE 18. 23. PRINT AG» 

554 LOCATE 38,32= PRINT DG» 

688 LOCATE 8.8 


A separação da impressão dos dados fixos dos 
dados var i áve i s irá agilizar a digitação de dados, 
pois o programa retornará, norma I me nte , a linha 588 e 
não perderá tempo imprimindo novamente os dados fixos 
que já estão impressos na tela. 
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nomeros decimais com VÍRGULA 

rs ocasiona" certa confusão 

■ i r o ponto de separação rai i es ima I 

1 aso poae ser obtido nnr r r. 4- ; * 


108 INPUT "Numero 
102 GOSUfi 248® 

IM PRINT Al 
10G END 
2400 * - — — - 

2482 ' RTCQNVPV 7 
2484 ' 

2410 Al = STRl(H) 

2412 K = INSTRUI.-.”) 

iili 1 F K .. = . 8 THEN Al=A«+“.8r- 
2416 K = INSTRUI,".") 

1212 í* s LEFTlUl.K-1) + + h 

2420 K * INSTRU$/* ”) 

2422 IF LE«(LEFT1U1K-1J»4 THEN 

a* k /Í®mS*:V I4 "" 4, ' I0 ‘ 

242B IF K>0 THEN IF LEN(LEFTI(A$ I 

a^R E r5 B , ; LEfT,ÍMIÍ -' 1 *""-"»*' 


Converte Ponto ea Virgula 



manipulação 







Variáveis 


tm um programa BASIC, as informações devem 
ser armazenadas em variáveis, 

Para que o programador, na análise dn progra- 
ma, não seja levado a cometer erros grosseiros, confun- 
dindo o conteúdo das variáveis, por causa de uma in- 
terpretação errônea de seus nomes, sugere-se adotar 
alguns padrões, 

A linguagem BASIC, por si so, apresenta algu- 
mas restrições, amp \ amente comentadas no livro Apro- 
fundando-se nu MSX . De forma resumida essas restrições 
são as segu i ntes ? 


0 nome da variável pode ser formado por até 
B5P caracteres, porém, somente os 0 primei- 
ros são considerados no nome da variável. 

- Variáveis que contenham numeros inteiros 
devem ser finalizadas com o símbolo % . 

- Variáveis que contenham números reais de 
precisão simples devem ser finalizadas com 
o símbolo ! , 

- Variáveis que contenham números reais de 
dupla precisão devem ser finalizadas com o 
símbolo * , 


" Variáveis 
numéricas 
bolo $ . 


que contenham informações alfa- 
devem ser f i nalí zadas cnm o sím™ 


yanaveis que contenham qualquer tipo de 

um r ón?Jin 1 1/9(11 para definir °s campos de 
™. d8 um a^ivo randômico devem 


cúfne roo inteiros 

números reais em precisão simples 
numeros reais em dupla precisão 
informações alfa-numéricas 


= 2 bytes 
= °i bytes 
= 8 bytes 
= 1 byte 
por 

caractere 


«nAfltl-íii tent3r estabe I ecer um padrão para o 
da, variaveis, mas analisando as r est r i cães de 

i nguayens de programação, podemos tentar esta- 

regras = 


nome 
outras 
beiecer dctermi nadas 


? * 


Reservar as iniciais 
r láve í s de contro! e. 

Quando houver várias variáveis semelhar,- 
TGS, h a u r t tf 3 r a fazer a díferenrínrÃn n. a 

pr, saí\í:r , ^/ ,r '‘"'- s::í! -“«« 


de i a N para as va~ 


de 


3 - 


No desenvo I v imento 
quando participam 
procurar e I aborar 
rão ser relacionadas 


rao utilizadas nos diversos 


d? um grande sistema, 
vãr i os programadores, 
uma taoela onde pode- 
as variáveis que se- 


programas. 


CONVERSÕES DE TIPOS 
1 - número para strrng. 


k 

real í zadas 
do tipo de 


conversão de números em 
pnr meio da função STR$, 
variável numér i ca . 


st r i ngs podem ser 
\ ndependentemente 
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A$ = 3TB$( II) 
A$ = STR${ Jl ) 
At = STRt(K) 
At * STR${ L4) 


? - número para string de definição de campo. 

A conversão de número em string de definição 
de campo de um registro de arquivo ratidômico, deve ser 
realizada por funções, de acordo com o tipo de variá- 
vel numér i ca . 


m = mki t( ii) 

Nt = HKS*( Jf ) 
m = HKS${ K) 
Nt = KKDt( LU 


3 - string para número. 

A conversão de strings em números pode ser 
realizadas por meio da função VAL: 


II = VAUAt) 
J) = VAL (At) 
K = VAL(At) 
L* = VAU A|) 


4 - string de definição de campo para número. 

A conversão de stringo de definição de campos 
de um registro de um arquivo randômico para números 
deve ser realizada por funções, de acordo com o tipo 
de var i áve I numér i ca . 


1% = CVKN») 
J! = CVS(Nt) 
K = CVS( Nt ) 
LI c CVS(Nt) 


5 - string com algarismos hexadecimais para número. 

N * VALrSir+A$) 
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MANIPULAÇSG DE STRINGS 

1 - TRANSFERÊNCIAS 

As transferências de informações a I f a-nome r i - 
cas de uma variável para outra pode ser feita direta- 
mente: 


A$ = 8$ 


2 - JUNÇÂC 

A junção ou concatenação de strings pode ser 
feita por intermédio do símbolo + , 

Exemp I o ; 

iee At = *'bga" 

102 BS = "TARDE” 

1M CS r AS + as 
106 P8INT C$ 

108 D| = A$ + "NOITE" 

110 PRINT DS 


3 - PARTES DE STRINGS 

Na situação em que se deseja somente uma par- 
te da informação a I f a-numé r i ca , podemos utilizar uma 
das funções: 

- t FFT$ 

- R IGHT$ 

- M I D$ 

O emprego dessas funções á amplamente discu- 
tido no livra Linguagem Basic MSX. 

Essas funções podem ser utilizadas em comhi- 
nação com outras funções. Vejamos alguns exemplos: 

Deseja-se imprimir somente o nome do logra- 
douro, lendo esses nomes em um arquivo onde o nome do 
logradouro está embutido no endereço, 


100 OPEN "CADASTRO. ARO" AS #1 LEN-87 

102 FtELD «1,30 AS N*,50 AS E*. 5 AS GES.2 AS L* 

104 MAX * LOFÍ 1 1787 
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118 FOR REG 5 1 TO MAX 
112 LPRINT EÍ 
114 NEXT REG 
1 1 B END 


Este programa irá produzir uma listagem do 

t i po : 


rua Jnaqui» Antunes. 458 

av. Hiruna, 34 

rua General Qsorio, 788 

praça Gomes Carneiro. 1.234 - apto 12 


Mas, desejamos uma listagem somente com o no~ 
me do logradouro, sem as palavras ”rua”, "av," etc. 


Joaquim Antunes 
Hiruna 

General usorio 
Gomes Carneiro 


Isso pode ser obtido com um programa do tipos 


1 88 OPEN "CADASTRO. ARQ" AS #1 LEN=87 

182 F1ELD #1,38 AS N$,50 AS E#.5 AS CEi.2 AS E$ 

184 MAX = LOFíl )/87 

10B FOR REG=1 TO MAX 

188 I = INSTR{E$," "1 

118 F = INSTRiEi." - I 

112 LPR1HT MIDiíEi.l.F) 

114 NEXT REG 
1 1 K END 


VÍRGULA E PONTO DECIMAL 

A notação empregada no Brasil para números 
fracionários é com vírgula decimal. 

Ocorre que os computadores, por seguir uma 
padronização universal, utiliza o ponto decimal na no- 
tação de números. 
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A substituição da vírgula por ponto e vice- 
versa pode ser efetuada de forma mais ou menos simples 
convertendo-se o número em string e aplicando-se a 
função INSTR. 

Para converter ponto para vírgula decimal: 


308 A$ = 5TR${ X) 

302 P = INSTRUÍ.".") - 1 

3*4 IF P )= 8 THEN A« = LEFTÍl A*. P )+”."+ 

RIGHTIf AMfNt A$)-P-1) 


Para converter vírgula para ponto decimal: 


300 P = INSTR ( Â$ ) - \ 

302 IF IF P >= O THEN A* » LEFT*( A$,P 

RIGHTIt &$. LEH( A$)-P-1 ) 

384 X = VAL{ Aí ) 
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volvi 
sistema 


Para d ese nvo í ver um programa ou urr conjunto 
de programas , devurrms proceder a Análise do Sistema. 

Em que consiste essa análise ? 

Analisar um sistema significa analisar os 03- 
dos que serão manipulados pelos programas definíndo-se 
os arquivos do sistema c , em seguida, analisar os ar- 
quivos definindo-se us programas dos i st ema 

Da análise do sistema, resultam, portanto, 
um conjunto de arquivos e de programas que constituem 
o Sistema, Em outras palavras, damos o nome de Sistema 
a um cujuíito de arquivos e programes estruturados para 

resolver um determinado probi ema > 

Par que um conjunto e não um único programa? 
Várias razões nos levam a dividir um grande 
programa em vários outros menores. Algumas dessas ra- 
zões podem ser as seguintes; 

1-0 computador não dispõe de memória sufi' 
ciente psra conter um único programa. 


2 - Durante o processamento de certas fases 
do problema será feita, por R*emplo, uma 
ordenação dos dados para colocar os dados 
em certa urdem e para isso será empregada 
uma técnica de c i ass ! f i caçêo cuja veloci- 
dade dependerá da quantidade de memória 
livre disponível. 
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3-0 sistema caracteriza-se por intenso 
acesso a arquivos em disco sendo acessado 
vários arquivos ao mesmo tenpo e para 
permitir uma grande flexibilidade ao usu- 
ário, vários parâmetros dos arquivas po- 
derio ser definidos na memória, e a efi- 
ciência das técnicas de acesso estará di- 
retamente associada a quantidade de memn- 
ria livre. 


Um programador experimentado apresentará de- 
zenas de outras razões segundo as quais um sistema de- 
ve. sempre que possível, ser dividido em programas pe- 
quenos. 

Para definir os arquivos do sistema, o pro~ 
gramador deve: 


t - Preparar uma relação contendo todas as 
informações que deverão ser fornecidas 
pelo sistema* Para ser prático, desenhar 
em um papei quadriculado, todos os rela- 
tórios que se deseja do sistema* 


2 - Partindo do pressuposto que o computador 
nãucria informações, analisar as infor- 
mações acima e preparar uma relação de 
todas as informações que deverão ser for- 
nec[das ao sistema. Agrupar essas infor- 
mações em função da época em que elas são 
produzidas* Para ser prático, desenhar, 
em um papel quadr i cu I ado, a forma em que 
os dados serão digitados. 


3 - Tomando como base u esquema seguintes 



Analise o fluxo dos dados desde a Fntrada até 
a Saída e procure uma estrutura de arquivos onde os 
dados sejam manipulados o menos possível, lembrando 
que as I e j tu r as e gravações em disco consomem t einp u . 
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Nessas análises, faça várias hipóteses, desde a con- 
figuração em que todas as informações finam armazena- 
das em um único arquivo* até a configuração em que os 
dados ficam distribuídos em vários arquivos. 

Após essas análises resultará a configuração 
final dos arquivos, tendo-se a definição de quais sao 
os arquivos e quais as i nf o rmações que serão armazena- 
das em cada um desses arquivos, 

Para se definir os programas Co sistema, o 
programador de ve : 


1 - Desenhar os arquivos em una folha grande. 


2 - Adicionar no desenho, ns programas de 
emissão dos relatórios, Ugando-os aos 
arqu i vos . 


3 - Adicionar no desenho, os programas de di- 
gitação de dados. 


q - Prever as situações em que haverá a ne- 
cessidade de corrigir os dados já arqui- 
vados e adicionar os programas que farão 
ta i s correções. 


5 - Prever as situações em que haverá a ne- 
cessidade de se eliminar algum registro 
do arquivo e adicionar os programas que 
farão tais eliminações'. 


Após isso. estará definido o sjstema de ar- 
quivos e programas. Fazer a Especificação do Sistema, 
Para isso, o programador deve* 

1 - Especificação dos Arquivos: 

Para cada arquivo do sistema? 

A - Definir o nome do arquivo; 

0 - Definir o tipo de acesso, se sequencial 
ou r andam icü; 
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C - Para cada campo do arquivo: 

1 * Descrever o conteúdo; 

2 - Definir o nome da variável de acessn. 

3 - Limitar o tamanho da ínformacao; 


2 - Especificação dos Programas: 

Para cada programa do sistema: 

1 * Definir o nome do programa; 

3 - Descrever o que ele f az ; 

3 - Desenhar telas de controle do programa: 

4 - Desenhar as teias da digitação de dados, 

5 - Desenhar a estrutura lógica dos programas 

em f f uxo gramas. 


Aproveite a oportunidade para preparar uma 
justificativa, isto é, relacionar os motivos que con- 
duziram os trabalhos de análise. 

Como resultado da Análise do Sistema, teremos 
o seguí nte mater ia I E 

1 - Especificação dos programas. 

2 - Especificação dos arquivos* 

3 - Desenho dos relatórios impressos. 

4 - Desenha das * te I as de digitação de dados* 

5 - Desenho das telas de controle* 

6 - Fluxograma dos programas. 

1 ~ Fluxograma do sistema, 

8 - Justificativas. 

Guarde esse material para compor o Manual do 

S i stema P 

EXEMPLO DE UMA ANALISE DE SISTEMA 

Vamos efetuar a análise de sistema para a 
elaboração de um Sistema de Controle de Materiais do 
almoxarifado de uma empresa. 

ANALISE DO SISTEMA DE ARQUIVOS 

Vamos seguir, passo a passu, o roteiro acima 
apresentado, efetuando a análise do exemplo apresenta- 
do no capítulo 9. 
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1 " Informações que se espera do sistemat 

Desenfiar, em papel quadr i cu i ado, todos os re“ 
latorios que se deseja obter do sistema. En- 
tende-se como relatório toda e qualquer in- 
formação que seja apresentada pelo computador 
em resposta a uma solicitação feita pelo usu- 
ário. 


Esses desenhos estão apresentados no capítulo 
9. Com base neles, podemos apresentar o seguinte; 


INFORMAÇÃO 

- Nome da F t rma 

- Título do Re I ate r i o 

- Numeração das Folhas 

- Data da Em* ssão 

- Código do Mater í a 1 

- Descrição do Material 

- Saldn Atual em Estoque 

- Data da ultima Entrada 

- Quantidade de Itens no Cadastra 

- Data da Entrada 

- Data da Saída 

- Número do Documento (Histórico) 

- Quantidade de Entrada 

- Quantidade de Caída 

- Quantidade Anterior 


RELATÓRIO 
12 3 4 

X X X X 
X X X X 
X X X X 
X X X X 
X X 

X X X X 
X X 

X 
X 

X 

X X 

X 

X X 

XXX 

X 


Essas são todas as informações que se deseja 
obter do sistema. 

D analista do sistema deve tomar extremo cui- 
dado na definição dos relatórios, pois, como veremos a 
seguir, é a variedade de informações que define a com- 
plexidade do sistema. Porisso, o anaMsta experiente 
deve alé antever algum relatório que nu futuro venha a 
ser necessário. 


2 - Classificação das Informações. 

Montada a relação, analisar bem o tipo das 
informações. Observar que existem informações fixas, 
que nunca variam, e outras que variam com uma certa 
frequência. 
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Separando umas das outras teremos: 

- I nformações F i a s = 

* Nome da F i rma 

- Título do Relatório 

- informações que variam em função do relató- 
rio: 

- Numeração das Folhas 

- Data da Emi ssão 

- Informações que variam de acordo com o es- 
toque: 

- Código do Material 

- Descrição do Material 

- Saldo Atual em Estoque 
“ Data da ú I t ima Entrada 

- Quantidade de Itens nu Cadastro 

- Data da Entrada 

- Data da Saída 

~ Número do Documento (Histórico) 

- Quantidade de Entrada 

- Quantidade de Sa ida 

- Quant í dade Anter i ar 


cmaífsar as informações variáveis e imaginar 
as situações em que elas serão produzidas, 

No caso em questão, tais situações são as se- 

g u f n t e s : 

" época de Cadast ramento, quando a empresa 
passou a adquirir um novo material. 

D ara um certo material, essa épnca existe uma 

única vez , 

- época de aquisição, quando k reaiizada a 
entrada no a Imoxar i f ado , 

Para um certo material essa Época pode ocor- 
rer com uma grande frequência. 

- época de consumo, quando é realizada a saí- 
da do atmoxar i fado. 

Para um certu material essa época pode acor- 
rer com uma grande frequência. 
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Classificando as informações variáveis de 
acordo com as épocas, teremos o seguinte; 

- Época de Gadast rame nto : 

- f,nd i gn do Material 

- Descrição do Material 

- Época de ^qu 1 s i çãci : 

- Date da Entrada 

- Numero do Documento (Histórico) 

“ Quarti dade de Entrada 

" Época de Gonsumo; 

- Data da Saí da 

" Número do Documento (Histórico) 

- Quantidade de Saída 


Da relação anterior ficam soorando algumas 
informações que não estão relacsonadas diretamente 'as 
épocas acima: 

- Saldo Âluat ?>m Fstnque 

- Quantidade de Itens no Cadastro 

- Quantidade Anterior 


Vejamos como será feita a digitação das j n- 
formações, Para a digitação dos dados é necessário de- 
senhar uma tela de digitação onde as informações sejam 
distribuídas no espaço de £4 x <10 (ou S8 se o vídeo 
tiver 30 colunas) com uma estética que facilite a ve- 
rificação visual daquilo que se digita. 

Imaginando qus futuramente serão necessários 
relatórios com os materiais agrupados par tipos como 
"material de es cr i tor i o” , "de limpeza", "do refeita- 
rio", etc, vamos incluir a informação TIPO. 

Imaginando, também, que no futuro seja neces- 
sária um controle do estoque baseado em uma quantidade 
mínima, vamos incluir a informação Quantidade Mínima, 

0 desenho da tela de Cadastramen to de Materi- 
al é apresentado no capítulo 9. 

Para a época de aquisição de materiais seré 
necessária uma tela de digitação quando serão digita- 
das: 

- Data da Entrada 

- Número do Documento 

- Quant idade da Entrada 


Me 


Imag i nando a situação em que o usuário irá 
digitar essas informações, a tela deverá apresentar 
algumas informações para orientá-lo. 

Pnr exemplo, após a digitação do código do 
material, seria interessante que o sistema respondesse 
com a descrição correspondente para que o digitador 
possa ter a certeza de que os dados que serão digita- 
dos referem-se ao meteria! desejado. 

O desenhn da tela de Registro de Entrada é 
apresentado no capítulo 9, 

Efetuando uma anál ise simi lar, podemos dese- 
nhar a tela de Registro de Saída apresentada no c a p í ~ 
tu lo 9. 


3 - AN/ÍLfSF DO ARQUIVO 

As i n í ormações digitadas, i ndepe ndent emente 
das épocas em que são produzidas, devam ser gravadas 
em um arquivo, para a ! i permanecerem até o dia cm que 
serão consultadas para a emissão dos relatórios. 

A Idéia mais imediata seria armazenar todas 
as informações em um único arquivo, 

Um registro desse arquivo teria o seguinte 

tamanho ■ 


" Cód i go do Material 3 

- Descr i cão '' 25 

- Data da Entrada 6 

- Número do Documento de Entrada 10 

-Quantidade de Entrada 5 

- Data da Saí da 6 

- Númern do Documento de Saída 10 

~ Quant idade de Saída 5 


TOTAL * 71 bytes 


Ohserve que foram definidas apenas uma Entra- 
da e uma Saída, Ocorre que existem materiais que são 
consumidos a tndo instante, gerando inúmeras Saídas ao 
longo do mês, 

Uma das alternativas seria prever vários cam- 
pos no próprio registres 
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- Co d í godo Material 4 

- Descr í ção 25 

- Data da Entrada E 



- Numero do Documento de Entrada 18 

- Quantidade de Entrada 5 

- Data da Sa í da G 

- Número do Documento de Saída 18 

-Quantidade de Saída 5 

- Data da Saí da 6 

- Numero do Documento de Saída 18 

- Quantidade de Saída 5 

"Datada Saída 6 

- Número do Documento de Saída 18 

- Qua nt idade de Saída 5 

- Data da Sa í da 6 

- Número do Documento de Saída 18 

“Quantidade de Saída 5 

^Datada Saída G 

- Número do Documento de saída 18 

-Quantidade de Saída 5 


TOTAL = 1 55 bytes 


No 9 arquivos, tanto do tipo sequencial como 
no randomíco, a quantidade de campos de um registro 
deve obrigatoriamente, ser fíxa, não podendo se ter 
alguns registros com 8 campos e outros com 28. Todos 
d registros do arquivo devem ter a rresma quantidade 
de campos. 

Na presente alternativa, deixando-se um gran- 
de espaço para poder registrar as inúmeras saídas de 
determinados materiais de grande consumo, iremos in- 
correr no desperdício de espaço em disco pois haverá 
materiais que nem serão movimentados ro mês. 

Outra alternativa seria a de separar as in- 
formações em 2 arquivos* 

- ÔrquíVO 1 : 


- Cod i go do Material 4 

- Descr i ção 25 

- Data da Entraca 6 

- Número do Documento de Entrada 10 

- Quantidade de Entrada 5 

- Arquivo 2r 

- Data da Saída R 

- Número do Documento de Saída 10 

- Quant i dade de Ga í da D 
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No primeiro arquivo serão registrados os mo- 
vimentos de Entrada o no outro serão registrados os 
movimentos de saída, Para cada Saída haverá um regi s “ 
tro correspondente. 

A vantagem está na economia de espaço em dis- 
co, pois só será criado um novo registro se houver mo- 
vimento. No caso do matéria! que c muito consumido e 
que gera muitos movimentos de saída, haverá um regí s — 
tro para cada saída, enquanto que aquele material que 
não foi movimentado não terá nenhum registro no arqui- 
vo 2, 

Observe que os arquivos, do jeito que foram 
definidos, não permitem que seja identificada quaf sa- 
ída corespunde a qual material. É preciso incluir uma 
referência comum, No caso, escolhe-se como referência 
comurr o Código do Material, 

O arquivo 2 fica sendo constituído, então, 
pelos seguintes campos: 


- Cddsgo do Material d 

- Data da 3a í da 6 

“ Número do Documento de Saída 10 

- Quaní i dade de Saída 5 


Da mesma forma em que um certo material pode 
ocasionar muitos movimentos de Scítía, existe a possi- 
bilidade de um material dar muitas Entradas ao longo 
de um mês. Nessas situações iremos deparar com o mes- 
mo problema de desperdício de espaço em disco, 

Uma alternativa de se contornar esse problema 
seria a de se colocar as informações de Entrada em um 
arquivo separado. 

Nessa alternativa, o nosso sistema será com- 
posto por 3 arquivos: 

- Arquivo 1 ; 


- Cód i godo Material q 

- Descri çao 25 

- Arquivo 2; 

- Cód í go do Mate r \ a I % 

- Data da Entrada 5 

- Número do Documento de Entrada 10 

- Quantidade dc Entrada 5 


143 



A r q u í v o 3 : 


-Ccdigo do Material A 

~ Data da Saída 8 

- Número do Documento de Saída 10 

- Quant i dade de Sa í da 5 


Observe que a -aparência dos arquivos 2 e 3 
são bem semelhantes* Se vocc se lembrar do que foi 
discutido no capítulo A sobre "buffer" verá que o tra- 
balho com muitos arquivos poderá complicar um poucu a 
operação do sistema* 

Entãu é melhor juntar os arquivos 2 e 3 em um 
único a r qu \ vo * acrescentando, porém* uma informação pa- 
ra poder diferenciar os registros de Entrada e de Saí- 
da . 

Resultam, então, os seguintes campos para o 
arquivo do Mau i mento : 


-Datado Movimento B 

- H i s f 6 r i c o 10 

- Godigo du Material movimentado A 

- Quantidade Movimentada 5 

- Tipo do Movimento (Entrada ou Saída) 1 


Vamos aproveitar para incluir nesse arquivo* 
a I g umas informações necessárias no sistema e que não 
seriam bem inseridas no arquivo de movimento* Essas 
informações são as seguintes: 

- Tí po do Mater i as 

- Saldo do Período Anterior 

- Saído Atual do Estoque 

- Quantidade Mínima no Estoque 

- Data da última Entrada 

- Data da última Saída 


Resultam* então* os seguintes campos para o 
Cadastro de Materiais: 


- Cndigo do Mater í a í 

- Descr I ção do Mater i a I 

- Tipo do Material 

- Saldo do Período Anterior 


- Saldo Atual do Estoque 

- Quantidade Mínima no Estoque 

- Data da última Entrada 

- Data da última Saída 


Para pudermos ter um controle rígido sobre o 
sistema, vamos criar um outro arquivo, onde possamos 
armazenar algumas informações que não estejam relacio- 
nadas diretamente com os materiais e nem com os movi- 
mentos. 

Como essas informações controlam o sistema, 
o arqu-vo será um arquivo de Parâmetros. As informa- 
ções que fazem parte desse arquivo são as seguintes: 


- Nome do 5 i stema 

- Número do Mês em Andamento 

- Nome do Mês em Andamento 

- Quantidade de Registros no Cadastro de 
Mate r lais 

- Quantidade de Registras no Arquivo de 
Mov tmento 

- última Data Acessada 


ANALISE DO SIS! Eli A DE PROGRAMAS 

Seguindo o roteiro apresentado no início des- 
te capítulo, resultará o seguinte desenho do sistema: 


CMCAD.BAS 
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AUTOEXEC _ 0 AS nOMAT.BAS 


Iniciai i z a 
o 

S i stema 


s 


Opções 

do 

S i stema 


CMREl * 5 AS 


Esco I he 
Relatar i o 


CMRFL?, FIAS 

Emite a 
Re 1 at 6r i o 
- 2 - 


CHENC.8AS 

Encerra 

o 

Mes 


CMREL3.BAS 

Eml te o 
- Re ] at nr i o 

“3“ 


CMREL^ *BA5 

Emi t e n 
- Rei a 1 6 r í o 
-4- 


CMREL5.BAS 


CMMAN.BAS 

Manutenção 
-Arquivo dc 
Par ke t r os 






eficiência 

dos proçrarnas 


Os problemas que sao encaminhados para serem 
5 u \ lí c i onadüs com o auxílio de computadores, o são, na 
maioria das vezes, para se ganhar tempo. 

Isso significa que os programas, antes de ma- 
is nada, têm o compr omi sso de serem velozes. 

A velocidade de execuçãu de um programa de- 
pende, i nf e t i zment e, dc vários fatores e nem todos os 
programadores possuam o conhecimento necessário para 
permitir que os programas sejam estruturados de tal 
forma a assegurar o menor tempo na execução, 

Como veremos, "programar" não é simplesmente 
estabelecer uni simples roteiro logico. Para conseguir 
t b ? r r a afirmação "Eu eoasegui fazer um programa que 
resolve tal problema" não r necessário um esforço mui- 
to grande. 

A programação & uma arte e como tal requer 
uma dedicação especial. O programador que se dedicar 
firmemente em conhecer profundamente a maneira como jm 
programa é executado pelo computador descobrirá uma 
série de macetes que tornam o programa mais eficiente, 
Vejamos alguns fatores que de alguma forma 
estejam relacionados com a velocidade das programas: 


1 - Ocupação da memór i a , 

2 - Estrutura dos programas (como foram divididos 

e estão relacionados). 

3 - Estrutura dos arquivos {como foram divididos e 

estão re 1 ac í onados } . 
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4 - Estrutura interna dos programas (como o pro- 

grama está estruturai u, unde estãu as rotinas 
mais executadas, algorítimo empre gado), 

5 - Programa Fonte e Programa Objeto. 

R - Compilação de Programas. 


ücupaçSc da hehória 

Se fosse possível tirar uma fotografia da me- 
moria durante a execução de um programa, veríamos que 
a RAM é dividida em várias partes distintas, onde cada 
uma dessas partes possue uma atribuição própria e de- 
sempenha uma determinada função específica para permi- 
tir que um programa seja executado cnrret omente. 

Veiamos, em detalhes, quais são essas partes, 
onde eías residem, a função de cada urra e como elas 
são estruturadas para que o desempenho do programa se- 
ja o mais eficiente possívef, 

Ta s partes são as seguintes? 

A - rirea do Programa, 

é a regiio em que o programa fica armazenado. 

E - Variáveis. 

í a região onde ficam armazenadas as tabelas 
de variáveis. 

C - Matrizes. 

é a região onde f cam armazenados os valores 
que correspondem as variáveis na forma tíe matriz, tam- 
bém conhecidas como Vetores ou Arrays. 

D - Buf f e r . 

t a regiãn nnrie são armazenados, provisoria- 
mente, os dados que transitam entre o programa e os 
periféricos conectados ao computador, 

E - Str i ngs * 

é a região onde são armazenados os conteúdos 
das var i á ve i s 3t r É ngs do programa. 

F - Stackers. 

É a região onde são armazenadas as tabelas de 
endereças de controle do programa, também conhecidas 
como Sfeckers, pois tais tabelas são montadas na forma 
de pilhas. 


(í - a r e a Livre, 

É 3 região da memória que sobra depois que 
foram distribuídos todos os espaços necessários para 
cada uma das partes, 

Para agilizar o acesso as informacoes, as 
áreas são agrupadas no início e no fim da RAM. Uma fo- 
tografia da RAM apresentaria a ! go do tipo; 


fase A fase 8 f ase C 


fase D 


L-sci do 
5 i st ema 


t!u f te* s 
Str t ngs 


St ack er s 


ERETÜP 

STKTOP 


livre 


livre 


D i spon í ve 
para o 
Úsuá r í n 


Arr a ys 
Var sáveis 


5TFEND 

ARYTAB 


VAPTAR 


Programa 


Í0fl0 


TXTTA8 


mm 


As fases indicam o estadn 
cnmputodnr a correspondem 3: 


de u t i M zação do 



A - 0 computador está desligado* 

B - O computador está ligado, porém está sem 
nenhum programa na memória. 

C - Um programa foi carregado na memória, mas 
a i nda não foi executado . 

D - 0 programa está em execução ou acabou de 
ser executado. 


O apêndice il apresenta os mapas de ocuoação 
da memória de aíguns microcomputadores. 

Vejamos, em detalhes, o conteúdo e a forma de 
cada uma das áreas : 


A - Xr ea do Programa * 

É a região em que o programa fica armazenado, 
na sequência em que as instruções foram digitadas* 

Uma Mnhe do programa fica armazenada na se- 
guinte forma : 


FEEE 

L LU 

CC 

texto 

100 


Exemp I o : 


100 PRINT "MSX" 

i 


0080 

6*180 

91 

2028*10535822 

00 

00 


*“► 00 fim do programa* 
— ► 00 fim da linha. 
-►Texto do comandn. 

— ►Dódígo do comando, 

— ► Numero da linha. 
—►Endereço da próxima 
linha. 


A próxima linha do programa ficará em segui- 
da, de modo que um programa com as instruções: 
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103 PRÍNT "MSX" 

110 PR i INI "BRASIL" 


ficará com o seguinte aspecto, na memória: 
8000 800D 

* i 


00 

0080 

mm 

91 

202240535822 

m 

1C80 

GE 


301 C 

i 


0p; 

31 

20223252 4153393C22 

00 


Ad í c i onando -se uma nova linha ao programa, 

IBS PRINT ”MS)T 
105 PRINT 

118 PRINT "BRASIL" 

o programa ficará com o seguinte aspecto na memória: 


G001 3000 

\ I 


□ 

3080 

G380 

91 

20223D53S022 

00 

1 388 

S980 

E] 


0013 8022 


-L 1” V 1 — -ir- f- 


| 90 

2280 

6 E00 

91 

202232523153393022 

00 



Üomo se vê , a cada nova linha que inserimos 
no programa, todas as linhas, que se situam apôs a li- 
nha inserida são deslocadas e os endereços de todas 
as linhas deslocadas são recalculados. 
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A área do programa tem i o í c i o 
TXTTAB e termina no endereço VARTAR , 


nu endereço 


B — Variáveis- 

É a região ande ficam armazenadas as tabelas 
eis, 

A tabela de variáveis possun uma sintaxe ge- 


ner i c a do tipo 


par âme tros 


Reação de parâmetros 
conforme o tino 
de variável. 

Nome da var í áve I . 

Gód i gê do tipo de 
var i á ve I . 


Para os diversos tipos de variáveis ac 
peía BASIC, a tabela pode assumir uma das forma 
gu i n tes ; 


02 NNNN VVVV 


Valor da variáveí ern binário 
f 2 bytes). 

Narre da variável, ocupando 
P hy tes , 

Código 0P_ 


Variável em ponto flutuante 


04ÍNNNN VVVVVVVV 


Valor da variável cm binar 
(4 bytes). 

Nome da variável, ocupando 
£ bytes , 

Código 04. 




- Variável em precisão dupla; 


08 

NNNN 

vvvvvvvvvvvvmv 




Valor da variável 

(B bytes ), 

Nome da variável, 

bytes, 

— — Código 00. 


em binário 
ocupando 2 


A área tem início no endereço VAPTA8 e t e rm i — 
na no endereço ARYTAB. 


C - Matrizes* 

É a região onde ficam armazenados os valores 
que cur respondem às variáveis na forma de matriz, tam- 
bém conhecidas como Vetores e Arrays, 

A tabela de variáveis possue uma sintaxe ge~ 
né r I ca do t i po : 


SC 

NNNN 

LLLL 

DD 

0000 

1111 

2222 

3333 


Valores das 
matrizes. 
Quantidade de 
e í ementos 
da ma t r i z in- 
clusive o 0 . 
Dimensão da 
matriz- 

Compr imentü da 
tabela. 

Nome da Mat r i z . 
Cód i go que i n~ 
dica o t i po : 

02 = inteira 

03 - 5 t r i ng 
03 = precisão 

simples 
08 - precisão 
dup I a 
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Para matriz de 1 d imensãO: 


CC mm tLLL 01 [JOOO 1111 ???? 3333 



Valores das 
matr i zes . 
Quantidade de 
e l ementos da 
(na t rí z, i nc i us i 
ve o ®. 

Dimensão da 
mat r i z . 

Compr i mento d a 
t ahe I a. 

Nome da matr i z . 
Cód i 3 n que in- 
dica o tipo. 


Para matrizes de 2 dimensões 


CC NNNN LLLL 02ÍVWV HHHH 1111 



Va I ores da 
matr i z . 
Quantidade de 
e I ementos hori- 
zontais { ] i nftas 
incfusÈve a (0) 
quantidade de 
e I ementos ver- 
ticais (colu- 
nas), i nel u s i ve 
a m. 

Dimensão da 
matriz. 

Comprimento da 
tabela. 

Ncrns da matriz, 
Cód i 30 que i n~ 

dica n tipo. 







Genericamente, podemos estabelecer a seguinte 
formula, para calcular n espaçe necessário para uso de 
m a t r i z e s : 


D I M var i ã v e 1 { N ) --- Ot (Ni 1 )*T 

D I M var i áve! (M,N ) — - 1 0 + ( M+1 )*í N+1 )*T 

etc. 


onde T “ 2 para variável inteira. 

3 para variável st r i ng . 

A para variável de precisão simples. 

O para variável de precisão dupla. 

A área tam írícin no endnrsço ARYTAB e termi- 
na nc endereça STREND. 


D - B u f f e r * 

é a região onde sao armazenados, provisoria- 
mente, os dados que transitam entre o programa o os 
periféricos conectadas ao computador. 

Ma área doo buffnrs. são reservadas 367 bytes 
para cada arquivo que se abre. 

A finalidade desses bytes é a seguinte: 


Fite Contfof Block 

0 

Pa i n t er 

3 

Dados 

266 

TOTAL - 

2F7 


bytes. 


Inicialmente são reservados 536 bytes, o su- 
ficiente para caber ? buffers, o que equivale ao co- 
mando MAXFÍLF5 - 2. 

A área tem início no endereça FflTAB e term - 
na no endereço HIMFM-1. 


E - St r í ngs , 

É a região onde são armazenados cs cnnteúdtis 
das variáveis Strings do programa. 
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0S 

NNMN LL 

EEEE 









Endereço do va f or da st r í ng. 

Conpr i mento da str i ng . 

Nome d& variável, ocupando 8 bytes. 
Código 03, 


A área tem início no endereço STKTOPfl e ter- 
mina nn endereço r RET0P . 

^ conteúdo da variável string, quando defini- 
n 9 P p ° 3 r ama/ com uma instrução do tipo, 
a$- M5X , e a própria instrução, de modo que o endere- 
ço que o MSX armazena nos quíntu e sexto üytes da ta- 
bela de definição da variável A$ apontará para o ende- 
reço dentro da i nstrução. 

O conteúdo da variável string, quando redefi- 
nida, rom uma instrução do tipo: A$=A$ f"H5X" resul- 

tandn em uma string diferente dacueJa com que a variá- 
vei ^ni inicialmeute definida, é armazenada na área de 
string. (Vestes casos, o espaço ocupado ê exatamente o 
comp r i mento da string. 

Inicialmente u M5X reserva um espaço corres- 
onndente a 8M bytes, paro evitar de ficar deslocando 
° t r í o g s C ^ e r s a novo byte necessário na área de 


F - Stackers. 

é a região onde são armazenadas as tabelas de 
endereços de controledo programa, também conhecidas 

somo Staclcers, pois tais tabelas são montadas na forma 
de p i I hes . 

Um desses endereços é, por exemplo, o endere- 

DrTnL/ 6 ° r '° m G05UB. Quando encontrar um comando 
KtiUHN. o sistema operacional consultará o STACK para 
^aber onde ele estava antes de desviar para a rotina, 

6 - tfrea Livre, 

_ l a região da memória que sobra depois que 
oram distribuídos todos os espaços necessários para 
cada uma das partes, 

Como se vê, o espaço que um programa precisa 
P3ra ssr executado ê bem maior que o tamanho do pro- 
grama propr i amente dito. 
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ESTRUTURA DOS PROGRAMAS 

Para planejarmos o espaço que um programa 
ocupa na memória, devemos considerar, além dt espaço 
acupado pele programa, os seguintes espaços ocupados 
pelas va" tá ve is, Duffers e stackers: 


- v a r i á v e i s > 
inteiras 

precisão simples 
precisão dupla 
st r i ngs 


- matrizes de uma única dimensão* (N) 

inteiras R + ( N + 1 ) * 2 

precisão simples 8t(N+1 

precisão dupla B+(N+1 )^R 

st r i ngs 8+í N+1 )*3 


- matrizes de duas üimensões? ÍH.N) 

inteiras 10+ÍM+l >*(N+1 )*2 

precisão simples 10 + (M+1 )*(N+1 

precisão dupla 10+ÍM+1 ) ^ t N+1 }*B 

q t ri ngs 1 0 -h ( M+1 ) ^ C N+1 )*3 


- matrizes de três dimensões: (UM,N) 

Inteiras 12+(l+1)*(M+1WN + i}*2 

precisão simples 12+(L+1)*Í M+ 1 ) * { N + 1 ) * 3 
precisão dupla 1 2+{ L +1 )*( M+1 !*{ N+1 ) 

5 1 r i n g s 1 8+ 1 L +1 )* í M+ 1 } * í N+ 1 ) +3 


- buftersi (MAXFILE5=X) 2+X*267 

- st ri ngs í somatória dos comprimentos das 
strings definidas pelo programa. Inicial- 
mente é reservado um espaço de 200 bytes. 

- stackers: 2 bytes para cada GGSUB. 


5 bytes por variável 
7 bytes por variável 

11 bytes por variável 

6 bytes por variável 
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fr soma de todas essas 
aexeeução du nrngrafra nãn deve 
disponível para a programa q n p 
TXTTflB até HIMEM. 


área : ; necessárias para 
ser superior ao espaço 
í o área q o u v a i desde 


Num computador M=iX sem disk drive, esse espa- 
li" f tl l fíes ' eniuantn que em um computador 
cibx com dtsk drive, esse espaço é reduzido de 4 nu 5 
Kbytes. aproximadamente 

Num computador IfiM-PC. esse espaço é de 
hytes. 


J Num , computador APPLE num placa CP/M e B4 
Knyres de memória, esoc espaço é de ?R,^83 bytes . 


o que fazer se o espaço necessário for mainr 
que esse limite"? 

Uma das alternativas é estudar a listagem do 
programa e procurar reduzir as árees ocupadas pelas 
variáveis, a que pode ser feito por uma das seguintes 
manetras: 


1 - Diminuir 3 quantidade dc variáveis. 

rnD M^ 3r exempl °' s e no programa existem vários 
EJ K . , . N r a T , procurar fazer com que tais z ona n dos usem 
sempre a mesma variável de coo t role. Usar FOR N=1 TO 
10 err um lugar e usar FOR |=i TO P0 em outro lugar, 
isto e, a variável N para um caso e a variável l para 
outro caso, pode ser que facilite a interpretação do 
programa, mas oliriga a um consumo adicional de 11 bv- 
tes, talvez sem necessidade. 


Usar o tipo 
espaça . 


de tfar i 3 ve I que ocupe manos 


No mesmo exemplo anterior, se o FOR...NEXT 
for controlado por um STFP de número inteiro, não é 
necessário usar uma variável de precisão dupla. Usan- 
do, por exemplo, FOR N%-1 TO 10, vo c § economizará 8 
unes. Lembre-se que o M5X assume como sendo de preci- 
são dupla, todas as variáveis cujo tipo não esteja es- 
pacificado P s srmbolos %, ! ou ft ou com os coman- 
das DETINT, OtFSGNf ou DFFOBL . 

D s mesma forma, certos tipos da variáveis co- 
mo a IDADE deve sempre ser defirída como uma inteira. 
ial r ecnmendação é muito importante, pr í oc i pa Imente nn 
caso em que a variável estiver na forma de uma matriz. 


159 



0 comando DIM iDADt(200) reservará um espaço 
de 1.B16 bytes, enquanto que o comando DIM ICADE%(200) 
reservará apenas 410 byteis, economizando,, portanto, 

1 ,206 bytes , 

Outra alternativa seria dividir o programa em 
2 uutros programas menores, fazendo com que um deles 
chame o outro, o que apresenta una série cie vantagens, 
que podemos enumerar: 


1 - Programas pequenos são mais rápidos para 
serem tr ansf er idos. 

A transferência de um programa de um perifé- 
rico onde ele está armazenado, por exempla, fita cas- 
sete ou disco magnético, é feita byte a byte, de modo 
que programas mais longos consumem um tempo maior para 
serem transferi dos , 

Durante a confecção de um programa 4 é grande 
a frequência de 5AVE e LOAD que efetuamos- Programas 
curtos serão transferidos em tempos menores, diminuin- 
do sensivelmente o tempo que o programador terá que 
esperar para a execução de tais comandos, 

Da mesma forma, durante a fase de testes do 
programa, quando Impríme-se a listagem do programa com 
certa frequência, o tempo economizado nas impressões é 
bastante cons i deráve l . 


2 - Programas pequenos são mais práticos de 
serem man i pu I ados . 

Como dito acima, a transferência de programas 
entre os periféricos é feita byte a byte. Durante a 
transferencia podem ocorrer fatos inesperados, tais 
como uma oscilação na tensão de alimentação (voltagem) 
o que pode provocar uma perda de alguns bytes. 0 modo 
tecnicamente correto para se evitar ta^s fatos seria 
dotar o computador de um sistema de tensão garantida, 
adquirindo aparelhos conhec i das como "No^b reaks" , que 
pelo seu alto custo só são acessíveis a poucos privi- 
legiados, fio programador menos privilegiado só resta 
mesmo a alternativa de tentar fazer com que o tempo de 
transferência seja o menor possível, fazendo com que 
o programa seja o mais curto possível, 

A divisão de um programa em 2 ou vários ou- 
tros programas menores é perfeitamente válida, pois iflfl 
programa, t ndepenòen temente do seu tamanho é executa- 
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E 

> 

j 


tío P el ° computador instrução nnr , nt i rir - 
em programas longos emun/dadn I (a3 ' e "tesmo 

estará executando ' ™ ( ! e ™ a * Un n lU " - C[mp Jtador 
anuela Única inslrucSn Fnís» «úf, J «struçao, arcnrs 

t- “USi/:’ og * - =■ 

DPÇoei P 0 S 5 fVfi/c ífp n m-nn.i+ üt ' n ^° C0FT * 0d;ís 

fin c« instrução de cada veí? ,r " “ ecut,r 

c a pacidade 0 de f elerntar 5 rnf 0 h^ tâd ! 1 ,res serão dotados d 3 
neamente AtÉ |j .... rm 1 ha 85 de instruções simul ta- 

t r os menores 'deve^er f pi ta 3 "™ P ^ 03rap,a Sfn vários ou- 
^ COS. de a o? c m a S, rt c 35 cnt§rlQS espací- 

5i de tícnf^MrrJiíIf? rel'*cfonanos?* SP ° 8 " 


1 - Conexão Di reta . 

ji-^.níT™ *tsis:-ts 'ííf:wj,íí, '*!.***?%*•'•* 

^^n,. se um íos progra(na aprí^rtS P !i! : 5 í st,,ma 
cada uma dessas alternativos V , ba atUíS e 
grama distinto, haverá uma rh^Laí Í3d ? P«r um p ro- 
da um desses 2 p-ogramas ^ específipa ca- 



2 outras SpçSe™ B ' P ° r 5Ua Ve *' poderá isentar 


m 






Programa A 


Chama C 

Chama tí 


T 


Programa B 

Chama O — 
Chama C — 


L_ 


0 programa C, 
outras 8 opções: 


Programa A 

Ghama C 
Chama B 


Programa B 


Chama D 
Chama C 
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Programa C 


f 


Programa D 


por sua vez, poderá apresentar 







j 


Programa C 



Chama B 



Chama D 

« 

U ! 


T 


Programa D 


E , finalmente, 
apresentar a ! te r nat i vss = 


□ programa D poderá também 



1 63 






Programa 

A 

Chama 

Menu 


A Conexão Direta apresenta a vantagem de o 
sistema acessar diretamente o programa desejadc, agj- 
Hzando a carga do programa, porém, na interpretação 
das conexo es apresenta-se um tanto confusa, principal 
mente em grandes sistemas onde a presença de um número 
r e I a t i v amen te grande de programas poderá acarretar uma 
interpretação errada do sistema. 


2 - Conexão em Estrela: 


Neste esquema de conexão, existe um programa 
i e ii t r a I i t ado r , que faz "35 vezes de programa de Cardá^ 
pio de Programas: 


A interpretação de um diagrama como este é 
hem mais simples, pois todas as ehanadas a quaisquer 
dos programas é feita sempre pelo programa Mo nu e o 
retorno de qualquer dos programas é sempre feita para 
o programa Menu. Apresenta, porém, o incovenientc de, 
caso exista uma situação eir cue o programa 8, por 
exemplo, necessite do programa C, a transferência de- 
verá ser efetuada em duas etapas, isto é, i n tc i a imente 
o programa R deverá chamar o programa Menu e em segui- 
da o programa Menu deverá chamar o programa C, 


Programa Menu 


Chama A 
Chama B 
Chama C 


Programa 
B 


Programa 

C 


Chama 

Menu 


Chama 

Menu 





Para permitir que um programa chame um outro, 
o BASIC oferece os seguintes comandos: 

- RUN 

- LOAD 

Vejamos as formas de chamada em cada um des- 
ses casos: 


1 - Comando ft UN 

0 comando RUN é a alternativa normal emprega- 
da quando se deseja transferir o comando do sistema de 
um p rog r ama para outro. 

Cm geral, a escolha de qual dos programas é 
feita por um Menu de Opções, ande o usuário irá indi- 
car qua : o seu desejo. Em seguida, o programa escolhe- 
rá a opção usando, por exemplo, o cumando IF : 


411 IF OPGAO=1 THEN RUN "AsPROGA" 

412 IF 0PGA0=2 THEN RUN "AiPROGB" 

413 IF 0PCA0=3 THEN RUN "a.PROGC" 


Neste caso, an executar o comando RUN, o pro- 
grama que está na memória é apagada e no seu lugar é 
colocado o programa carregado. 

Todas as variáveis do primeiro programa são 
perdidas, assim como, todos os arquivos abertos são 
sumariamente fechados. 


5 - Comando LOAD. 

O comando LOAD funciona de forma semelhante 
ao comando RUN, apresentando apenas uma diferençai Se 
o comando for executado com o parâmetru ",R" os arqui- 
vos porventura abertos no primeiro programa continua- 
rão abertos no segundo, de modo que não existe a ne- 
cessidade de se abrir novamente esses arquivos no iní- 
cio do programa chamado. O emprego desse comando é 
idêntico ao do comando RUN, isto é= 


411 IF DPGAO=1 THEN LOAD "A : PROCA" , R 

412 IF OPCAO*2 THEN LOAD "A, PR OGB" R 

413 IF OPCAO=3 THEN LOAD "ArPROGtT.R 
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Como em qualquer das alternativas acima as 
variáveis j ãu perdidas, dese j ando-se passar as valores 
das variáveis de um programa para outro, deve-se criar 
um arquivo temporário e nele gravar o conteúdo das va- 
riáveis que necessitam ser passadas para o outro pro- 
grama , 


ESTRUTURA DOS AROUIVOS 

Um arquivo, como vimos no capítulo d, pode 
ser do tipo sequencial, randômsco ou um arquiva de 
programa. 

I nrlependen temente do seu tipo, o arquivo não 
fica disposto de forma contínua nn disco, 

0 acosso ao disco é feito par móduías conhe- 
c i dos coma "setores" , 

No sistema MSX, cada setor tem normalmente 
capacidade para 51? bytes. 

Deste modo, um arquivo com 2,008 bytes irá 
ocupar A setores do disco conforme o esquema seguinte* 


Setor 1 (51? bytes) 


Setor 2 { 51 2 bytes) 


Setor 3 (512 bytes) 


Setor A (512 bytes) 



Esses A setores não ficam necessariamente um 
ao (ado do outro como seria de se imaginar. De acorda 
com a disponibilidade de espaço no disco, o sistema 
operacional irá alocar esses setores onde for mais 
conveniente, de modo que eles poderão estar, um no 
começo do disco, outro no melo e os demais no fim da 
d isco. 

Para compreendermos melhor o esquema de a í o - 
cação de setores, vamos representar, de modo simplifi- 
cado, a vida de um disquete, 

1*0 disquete foi recém formatado, de modo que todos 
os setores estão tivres, 

2 - Nesse disquete foi definido um arquivo de 2.08® 
bytes . 



Setor 1 

Setor 2 Dispcníveí 

Setor 3 2.848 bytes 

Setor 4 


A p q ü i v □ 1 
usa 2.888 bytes 


Vamos supor que nesse disco seja definido um se- 
gundo arquiva contendo 688 bytes. 


Setor 1 
Setor 3 
Setor 3 
Setor 4 

Disponível 
2.048 bytes 

Arquivo 1 
usa 3.000 bytes 

Setor 5 
Setor 6 

Df sponí ve 1 
1 .024 bytes 

Ar qu i vo 3 
u s 3 600 bytes 


3 Agora, imagine que no Arquivo 1 sejam adicionados 
mais alguns registros e que após isso o tamanha do 
arquivo passe para £.108 bytes, 

An ter i ormente o arquivo utilizava apenas 
a. 080 bytes embora tivesse reservado 2,048 bytes. Ti- 
nha, portanto, 48 bytes sobrando, sem uso. 

Dos 188 novos bytes necessários 48 serão gra- 
vados nessa sobra que havia, E os 52 restantes, onde 
serão gravados ? 

0 sistema operacional reserva um novo setor 
de 512 bytes e grava nele esses 52 bytes restantes do 
arquivo. Nas onde está esse novo setor ? 

O sistema procura o primeiro setor livre do 
disco, que no caso presente é o setor 7 : 


IjS ' è%‘ ‘‘ÊÊ, 

n i sponí ve 1 
3.048 bytes 

Arquivo 1 
usa 2.000 b'ytes 

Sator 5 
Setor 6 

Disponí ve 1 
1.024 bytes 

Arquivo 2 
usa 600 bytes 

Setor 7 

Disponível 
513 bytes 

Arquivo 1 (continuação) 
usa 53 bytes 

^ — 
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Case, nesse disco seja gravado m flrquvo 3 
800 bytes, o disco terá a seguinte ocupação? 


Arquivo 3 
usa EU 10 bytes 


Arquivo 1 ( cont i nuação ) 
usa 152 bytes 


Arquivo 3 
jsa BflP bytes 


O tato de um arquivo ficar armazenado em se- 
não contíguos como o Arquivo V. nãn traz nenhum 
lente pois o sistema operacional sabe disso. 
Quando um programa vai ler sequencialmente o 
1, o sistema operacional começa a leitura no 
o setor que c o setnr 1. 

Terminada a leitura dos 51P bytes desse setor 
mo será Mdo. Quandn n último byte do setor d 
do o sistema operacional saberá que deve ler o 
Para isso ele guarda uma tabela onde estãu 
nados os números dos setores de cada arquivo. 


5 - Agora, imagine que o Arouivo 2 f □ i eliminado 


Seto*- i 
Setor 2 
Setor 3 
Setor 4 


Disponível 
P.03R tiytes 


Arquivo 1 
usa P.04B bytes 


Setor 5 
Setor tí 


livre 

1 , PP*! ti y tes 


Arquivo 1 { cnnt i nuação ) 
usa 5c bytes 


Di s p o n í ve i 
DTP bytes 


Arquivo 3 
usa 300 byte 


D i sponí ve 1 
1 . bytes 


Set nr R 
Setor 3 


Setor 1 
Setor 2 
Setor 3 
Setor 4 

Disponível 
c. 043 bytes 

Setor R 
Setor 6 

D F sponí ve 1 
t . 023 h y t es 

Setor 7 

[J i sponí ve ! 
MP bytes 

Setor 8 
Setor n 

□ i sponí ve! 

1 . 0 í Jí 1 bytes 



















Agora, imagine que novos registros foram adiciona- 
dos ao Arquivo 1 e que cie passnu a ter o tamanho 
de 2-800 bytes, de modo que os 5 setores anterior- 
mente reservados para ele não sejam mais suficien- 
tes . 


é claro que o sistema operacional irá reser- 
var um novo setor para esse arquivo, 56 que agora, em 
ve? de reservar o setor 10, irá reservar o setor 5. 0 
próximo setor a ser reservada é sempre o primeiro que 
está I f v r e no disco. 


Setor 1 
Setor 2 
Setor 3 


Disponível 
2.048 bytes 


Arquivo 1 

usa 2.048 bytes 


D í spon f ve I 
SI 2 bytes 


Arquivo 2 (continuação 2 ) 
usa 240 bytes. 


Setor 8 


Livre 


D i spon í ve I 
81 2 bytes 


Arquivo 1 (continuação 1) 
usa 81 2 bytes 


Disponível 
1 . 024 byte 


Arquivo 3 
usa 400 bytes 


setor 8 
Setor 9 


0 acesso ao Arquivo 1 se^á feito na seguinte 


ordem de setorc 


19 setor 
29 setor 
39 setor 
49 setor 
59 setor 
69 setor 


Embora para o sistema operacional não faça 
nenhuma diferença a ordem dos setores, a eficiência do 
programa pode ser prejudicada se eles nãu furerr contí- 
guos . 

Como vimos no capítula 4 P um disco norma I me n- 
é composto de 40 trilhas por face e cada trilha 
porta 3 setores. 0 disco tem, portanto, um total de 
360 setores í 5 1 /4" ! ) ( 










Oons f derando qm cada setor 
que u disco tem ? faces, resulta que 
Kbytes ou seja Px3G8 x 51? = 366 . 640 
Quando b feito um acesso ao 
acesso é conposto p o r ; 


ocupa 51? bytes e 
e le cempor ta 360 
bytes. 

disco, o tempo de 


- Tempo de deslocamento da cabeça para a trilha 
dese j ada. 

- Tempn tir espera at? a chegada do setor desejado. 
Enquanto u disco gira, os 6 setores da trilha 
ficam passando continuam ente, 

- Tempo de leitura ou de gravação quando todos os 
51? bytes do setor são lidos ou gravados. 


Desses tempos, o maior é o tempo de desloca- 
mento da cabeça entre uma trilha e outra. 

Quando um certo arquivo é antigo e durante a 
vida dele muitos registros foram sendo sueess i vamenf e 
adicionados e ainda, outros arquivos foram sendo cria- 
dos e eliminados no mesmo disco, pode resultar uma se- 
quência de acesso do tipo: 


15 

se tor 

1 

?o 

setor 

2 

35 

setor 

3 

40 

setor 

171 

55 

setor 

1? 

65 

setor 

?46 

75 

setor 

5 


A leitura de todos os registros desse arquivo 
será relativamente lenta pois no meio das leituras a 
cabeça deverá ser deslocada muitas veies de uma trilha 
para outra, 

fiecomenda^se. nestes casos, transferir; com o 
comando GOPY, o arquivo para um novo disco, recém for- 
matado. Nessa transferência o sistema operacional irá 
reservar setores consecutivos no novo disco, de mudo 
que d arquivo que no disco antigo estava espalhado por 
setores esparsos, no novo disco ficará todo junto, em 
setores contíguos. 
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ESTRUTURA INTERNA DOS PROGRAMAS 


A localização das e nstruçoes. dentro do prn- 
g r ama pode afetar sensivelmente a veloci darie de execu- 
ção de programa, 

0 programa, enfaora seja uma sequência lógica 

nnde existe um início e um fim, nãc necessita ter o 

rnícin no princípio da listagem do programa. A primeira 
instrução de um programa pode perfeitamente ser uma 
instrução do 1 1 p o ■ 

1 GOTO 780* 

de modo que o início do programa estará no final da 
I i stagem, 

Pejamos algumas r ecome nd a ç 5 e s para aumentar a 
velocidade de execução de um programa. 


1 - Interpretador BA5 I C . 

Durante a execução de um programa em BASIC, 
c i nterpretador analisa uma instrução de cada vez e 
somente apns a execução comp lefa da instrução b que 
ele passará para a interpretação da próxima instrução. 

Como se sabe, as instruções, embora nas lis- 
tagens se|am apresentadas uma abaixo das outras, na 
memória sau dispostas em sequência, havendo o código 
00 separando uma instrução da nutra. 

Quando o interpretador encontra uma instrução 

do t i p o t 

GOTO 6274 

ele não sabe, a priorí, onde está a instrução 6P7^. 
Para encnntrá-la, ele é obrigado a voltar para o i n f — 
cio do programa e executar uma busca pela área de me- 
mória onde está o programa, 

Isso consome tempo e, para os defensores ar- 
dorosos da programação estruturada, temos um argumeri” 
to de ordem prática para evitar o usn abusivo do co- 
mando Goto. 

8 - COMANDO DATA 

O comando DATA define, em geral, uma grande 
quantidade de informações, ocupando um longo trecho 
da memôr i a. 
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Para o interpretador, é indiferente o r d e está 
localizado c comando DATA, 

Se considerarmos o que 1 o i visto no item on 
terior, veremos que a existência de um extenso comando 
DATA na parte inicia’ do programa fará com que as pro- 
curas pelos números das instruções acabem cor sumindo 
um tempo muito grande. 

Recomenda-se, portanto, colocar todos os 
DATA's na parte final do programa 


S - LDOP 


Os ciclos, dentro de um programa saa mais fá- 
ceis de serem visualizados quando sp usam os comandos 

FOR. . * NEXT * 

L embre-se porém da possibilidade de se usar 
outros comandos, (IF, por exemplo) que, dependendo da 
condição do ciclo, pode ocasionar uma diminuição do 
tempo de execução* 


4 - VARIÁVEL INTEIRA 

Sempre que possível, empregue variáveis inte- 
iras pois são mais rápidas de serem processadas. 

Compare os tampos gastos pelos programas se- 

gu i nfes: 

100 T = TI HE 

101 FOR N = 1 TO 1000 

102 NEXT N 

1 03 PR1NT TIHE - T 


100 T a TIME 

101 FOR NI = 1 TO 1000 
162 NEXT NI 

183 PRINT TIME - T 


100 T =TIHE 

181 FOR Nl = 1 T0 1008 

102 h s 1 

103 NEXT M 

104 PRINT TSHE * T 
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100 T = TIME 

101 FMM M TD 1080 
10S A* ^ 1 

103 NEXT M 

104 PRINT TIME - T 


5 - FIM DO 100F 

Existem situações dentro rtn rjrfo fOR..,NrXT, 
em que d es e j amo s encerrar j e x e o u ç ri r do t i r I o 5 em t r r 
cl í n d íí n t 1 ng i do a c ci n d > ç ã n final. M ç s t e 5 rasos, rodemos 
igualar a variável de controle com a r o ncfl gão f i n 3 í . 

100 FOR H = 1 TO 1000 

101 PR INT N 

10? IF N > 7HEN N * 1000 

103 NEXT N 

104 PRINT "FIH" 


G - DEFINI CüES DF V AR I AVE I 5 

As variáveis do programa são definidas, isto 
e, um espaça para elas é a Inçado dinamicamente, na me- 
dida em que a execuçan dn programa avança e é encon- 
trada um a n n v ,1 variável. 

Se 0 programador prestar atenção ao mapa da 
memória apresentado no início deste capítula, vai nc- 
tar que as variáveis tipo Array são definidas acima 
das variáveis numéricas, 

Uecutando 0 programa seguinte: 

mo niH Edooi 

101 PR INT l/ÂRPTRf E{ 1 ) ) 

102 0 = G 

103 PRINT VARPTRi E{ 1 } ) 

104 C = IP 

105 PRINT VARPTRIEd )} 

0 programador noeferé observar que 5 cada nova 
variável que vaí sendo definida no programa, 0 enders- 
çn nrda estão as irform ações da matriz E(n) vai vari- 
ando, 0 que significa que a cada nova definição, toda 
a matriz esta sendo deslocada na memória, 0 que cunso- 
mc , e v i d e n t eme n t e , algum tempo. 
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Para comprovar, execute os seguintes progra- 
mas i 

180 T - II HE 

101 D IR Ef 1 000 ) 

102 B x 0 

103 C = 18 

184 PRIRT TIME -T 


180 l = TIME 

101 B = 0 

102 C a 10 

183 O m Ef 1 000 ) 

104 PRÈNT TIRE - T 


Reccmenda-se definir todas as variáveis nume- 
ricas do programa antes da definição de qualquer ma- 
triz, mesmo que as variáveis seian definidas cnm 
ZEROS . 


COMPILAÇÃO DE PROGRAMAS 


D BASIC Interpretado é aquele em que a execu- 
ção do programa é feita após a interpretação de cada 
instrução. Isto é , em cada instrução é feita uma in- 
terpretação seguirda de uma execução, 

O que é ! n terpr e t ação 7 

Interpretar significa traduzir a instrução 
que está montada segundo a sintaxe da linguagem BASIC 
para uma instrução em linguagem do 780, para ser exe- 
cutada 

O microprocessador só entende programas do 

t í po i 


11 83 00 LD DE ,8003 

CD 50 m CALL CDNOUT 

17 RLA 

38 FA JR MC, VOLTA 

1F RRA 


C9 RET 


que são programas em linguagem de máquina, 

O interpretador converte instruções em BA3ÍC 
para instruções em Linguagem tíe Máquina e executa -as 
togo a seguir. Após a execução, pega a próxima instru- 
ção BASIC e repete o cic‘o. 
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Us a r> d o— s e o BASIC Interpretado, na execução 
ao programa estará embutido n tempo de conversão, 

0 Compilador e um utilitário que converte rão 
apenas uma instrução mas ú programa todo de BASIC para 
Linguagem de Máquina sem fíxeeulá- l o _ 

A entrada para n CompHador ê o programa cm 
BASIC e 3 sa da e o prrgr am a jo convertido em um pro^ 
grana em Linguagem rte Máquina. 

H programa poderá ser exocutscfo apôs o compi- 
laçao.^Neste casn, não haverá mais o tempo de inter 
P re tacão pois tndas as instruções já estarão devida- 
mente interpretadas, de modo que a execução desse pro~ 
grama compilado será muito mais rápida. 


CRIATIVIDADE 


Fmôofa tenha side apresentada ao longo deste 
liv'0 uma série de dicas para agilizar a execução de 
um programa, o que vale mesmo é a criatividade do pro- 
gramador em criar algoritmos inteligentes capazes de 
resolver ti_prnlilema com eticiêneia. mesmo que a sua 
aparência não dê essa impressão. 

r<perimeote executar o programa abaixo e ana- 
lise n que faz o algoritmos 


100 BEFINTJ-M 

182 PRINT "Fornecer um numera impar maior que 3-” 
104 INPUT "Tamanho”.: H 
1 86 GOSUB 200 

108 PRINT "Experimente somar as Horizontais, 
Verticais e Diagonais:” 

118 FOR i a 1 TO M 
112 FOR J = 1 TO M 

114 PRINT TABt 3*J)USING*'###"iA{ I , J) ; 

116 B : B + A| I, J) 

118 NEXT J 

128 PRINT ”=”;B = 6 = 0 
122 NEXT I 
124 END 

200 ' 

202 ' ALGORITMO 

204 ' 

206 DIM AÍH.M) 

20 B K = H / 2 

210 L = 1 

212 I = I + K 
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£14 

J = 

J + 1 





£16 

IF 

L > M*H THEN 

flETURN 

£18 

1 F 

1 > M THEN 

1 

Hri 

! 

- n 

££0 

IF 

J > M THEN 

J 

z 

J 

- n 

£££ 

1 F 

1 < 1 THEN 

1 

M 

I 

t- H 

££4 

IF 

J < 1 THEN 

J 

z 

J 

+ H 

££6 

IF 

aí i , j> = e 

THEN 

AU , J ) 


L = L + 1 : 

GOTO EXE a 
EL SC \ = I + K= 

J = 4 - 1 E 

GOTO £18 


Agora esqueça o a I gor í tmc apresentado e p r o- 
cure desenvolver um algoritmo que resolva o seguinte 
□ rofc I ema = 


''Preencher uma matriz 5 V 5 com números sequenciais, 
começando pelo 1, sen repetir, de forma que a soma 
dns números dispostos em qualquer das horizontais, 
verticais ou diagonais, resulte sempre em G5" , 


P R OTEÇSO [>E PROGRAHA5 

O programador que pretende profissionaiizar- 
se deve, além das preocupações apresentadas neste li- 
vro, preocupar-se com o esquema de distribuição dos 
programas . 

Não é raro encontrar programadores lamentan- 
dc-se do fato de uma pessoa i nescrupu I osa estar ga- 
nhando muito dinheiro comercializando cópias de pro- 
gramas sem a autorização dos autores, 

Embora haja uma legislação sobre a matéria, 
nem sempre a mesma é obedecida e é quase impossível 
descobrir em que empresas estão as cópias ilegais de 
nossos p r ogramas . 

Muitos programadores, na tentativa de difi- 
cultar ou mesmo impedir a cnpís ilega dos programas, 
desenvolvem técnicas especiais de fazer uma gravação 
magnética ou física nos disquetes. Essas proteções, no 
entanto, tem uma duração efeméra pois após algum tem- 
po, algum programador pirata irá descobrir como é fei- 
ta a proteção e criará um Eliminador de Proteção capa? 
dc produzir cópias facilmente copiáveis, 

Não perca muito tempo tentando desenvolver 
alguma técnica supe r-e I abo rada para a proteção do seu 
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programa poio no mercado ericontr 3mns derenas de uro- 
Dor' T1 ra i , = r^ P í^^ íam , uma b V 8fiCÍ8 ndia i ustame nte 
PlímSntB plpaíaSÜs Pr ° U?an 6 Mn 3ssim 1550 

0 rji e f h o r critério é relacionar^se c om e r r \ a I - 
fren.e somente com pessoas ou empresas idôneas e em ca- 

P?ograma. P ” VÍden ' Íar Um Cpn1rat£) de Hcença de Uso do 

^ns psíses onde há uma grande produção de 
Programas houve época em que se tentou protege? os 
programas por me i n de técnicas de proteção gravadas 
n o .i disquetes, mas a tendência; haje em dia. é de pre- 
ocupar se com a idoneidade dos compradores. 
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Este capítulo contém um exemplo prático de um 
sistema completo de programas para controle do estoque 
de materiais do aimoxarifado de uma pequena empresa* 

0 exemplo controla apenas a parte tísica, is- 
to é, as quantidades de materiais, não entrando no mé- 
rito dos preços dos mesmos, 

A título de exercício, o programador poderá 
extender o controle para controlar os pagamentos {Con- 
tas a Pagar)* Para isso deverá montar um arquivo para 
o Cadastro de Fornecedores e outro para o Registra e 
Acompanhamento de pagamento das duplicatas. 

Poderá também extender a controle para con- 
trolar o Custo de Consumo dos diversos setores da em- 
presa* Para Isso deverá montar um arquivo para o Ca- 
dastro de Setores e outro para o Registro de Saída pa- 
ra os setores. 

Este si st ema é a continuação da análise rea- 
lizada no capítulo 7, onde são definidos os seguin- 
tes programas * 


1 - 

AUTOEXEC.BAS 

16 - 

CMCANSA i .BI 

2 - 

GOMAI. 8 AS 

11 - 

CMREL . BAS 

3 - 

OMCAD.BAS 

12 - 

CMREL1 .BAS 

4 - 

CMKOV.BAS 

13 - 

CMREL2.BAS 

5 - 

CMfiEGENT . BAS 

14 - 

CMREL3.BAS 

G - 

GMRECSA 1 .BAS 

IS - 

CMREL4.BAS 

7 - 

GMALTENT . BAS 

18 - 

GMRE15.BAS 

0 - 

CMALTSAI .BAS 

17 

CMENG.0AS 

0 - 

CMCANENT . BAS 

18 - 

CMMAN.0AS 
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EGPECIFXCACSO DOS PROGRAMAS 


A seguir, comentamos brevemerte o que faz t a 
que se destina cada programa da nosso sistema. 


AUTOEXEC^BAS 

Realiza a apresentação do si st ema , quando so- 
licita que seja digitada a data de acesso. 

Carrega e executa o programa GOMAT.BAS . 


COMAT ,BAS 

Apresenta as opções do sistema, podendo car- 
regar e executar um dos seguintes programas: 

- CMCAD.BAS para cadastrar 

- CMMQV.BAS para movimentar materiais 

- CMREL.BA5 para emitir os relatórios 

- CMENG.8AS para encerrar o mes 

- CFflMAN.BAS para efetuar a manutenção do 
s i st ema 


CMCAD-BAS 

Permite efetuar a inclusão de novos materiais 
no cadastro. Após a inclusão, carrega de volta o pro- 
grama G0MAT.BÂS . 


CMMOy . B AS 

Permite realizar a movimentação de materiais, 
carrega e executa um dos seguintes programas: 

- GMREGENT*BAS para dar entrada 

- GMREGSAt.GAS para dar saída 

- GMALTENT.BAS para alterar uma entrada 

- GMALTSAÍ.GAS para alterar uma saída 

- GMGANENT.BA3 para cancelar uma entrada 

- CMGAN5AI.BAS para cancelar uma saída 


Após a execução, carrega de volta o programa 
COHAT.BAS , 
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HMRFI * BAR 


Permite escolher um dos relatórios programa- 
dos, feito por um dos programast 


“ CMRFM ,BAS 

- CMREIE . BAS 

- CMREL3.BAS 
“ CMREL^ . BAS 

- CMREIS. BAS 


para emitir o relatório RELAÇÃO 
DE MATERIAIS . 

para emitir o relatório SALDOS 
DO ESTOQUE , 

para emitir o relatório MOV I MEN- 
TO DO ALMÜXAR I FADO . 
para emitir o relatório SAÍDAS 
00 ALMOXAR I FADO . 
para emitir o relatório POSIÇÃO 
DO ESTOQUE . 


Após a execução, carrega de volta o programa 
COMAT.BAS _ 


CMFNC.RAB 

Permite proceder ao encerramento do mes, 
quando ns saldos sao atualizados. 

Após a execução, carrega de volta o programa 
COMAT.BAS . 


CMHAN-BAS 

Permite consultar e alterar aval quer um dos 
ciados do arquivo de parâmetros do sistema. Após a exe- 
cução. carrega de volta o programa COMAT.BAS . 


CMREGENT.BAS 

Permite efetuar o registro de uma entrada no 
estoque. Após a sxecuçao, carrega de volta o programa 
CMMOV.BAS , 


CMRFGSAI „BAS 

Permite efetuar o registro de uma saída do 
estoque. Após a execução, carrega de volta o programa 
CMMOV.BAS . 


CMALTENT.BAS 


Permite alterar os dados de uma entrada re- 
gistrada anteriormente. Após a execução, carrega de 
volta o programa CMMOV.BAS . 


CMALTSAI „BAS 

Permite alterar os dados de uma saída regis- 
trada a n t er i o rmen t e . Após a execução, carrega de volta 
o programa CMMOV.BAS . 


CMCAHENT „ B AS 

Permite cancelar uma entrada registrada ante- 
r í ormente . Após a execução, carrega ds volta o orogra- 
ma CMMOV.BAS . 


CMCANÜAI .B AS 

Permite cancelar uma saída registrada anteri- 
CMMOV^BAS AP ° S 3 execue ® 0, c 3 r r e g a de volta o programa 

CMRELi .BAS 

Emite o relatório Relação de Materiais. Após 
a execução, carrega de volta o programa CMREL.BAS . 


CMREL2.BAS 

Emite o relatório saldos do Estoque. Após a 
execução, carrega de volta o programa CMREL.BAS . 

CMREL3.B AS 

Emite o relatório Movimento da Almoxarífada. 
Após a execução carrega de volta o programa CMREL.BAS. 


CMREL4 . BAS 

Emite o relatório Saídas do Almoxarifado. 
Após a execução carrega de volta o programa CMREL.BAS. 
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CMREL5 _8AS 



Emite o relatório Posição do 

Estoque. Após 

a 

execução, carrega de volta o programa 

CMREL.8AS . 


ESPECIFIGAGlO D05 ARQU1V05 



Cadastro de Ma ter i a i s 



- nome: CMCAD.ARG 



- tipo? RanòSmi co 



- Cód i go do Mater ia! 

CD$ A 


- Descrição do Material 

DC$ 25 


- Tipo do Mater t a 1 

TC$ 10 


- Saldo do Período Anterior 

SR$ -1 


- Saldo Atuaí do Estoque 

514 4 


- Quantidade Mínima no Estoque QM$ A 


- Data da última Entrada 

UE!J 6 


- Data da última Saí da 

US$ 6 



Total = 33 bytes 

Arquivo de Mov imanto 



- nome > cmmov.arq 



- t i p o i Randômi co 



- Data do Movimento 

MD$ 8 


- Histórico 

MH$ 10 


- Código do Material Movimentado MC$ A 


- Quantidade Movimentada 

MQ$ 4 


- Tipo do Movimento ( E/S ) 

MV$ 1 



Total ^ 55 bytes 

Arquivo de Parâmetros do Sistema 



- nome: CMPAR.ARQ 



- tipo: Randíimieo 



- Nome do Si stema 

TT$ 

30 

- Numero do Mes em Andamento 

NM$ 

a 

- Nome do Mes em Andamento 

DM$ 

9 

- Quantidade de Registros no 

Cadastro RC $ 

a 

- Quantidade de Registros no 

Movimento RM$ 

c 

- Ultima data Acessada: Dia 

UD$ 


Mas 

UM$ 

5 

Ano 

UA$ 

a 


Total = 51 bytes 
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MODELO DOS RELAToRIOS IMPRESSOS 

Existe uma infinidade de relatórios possíveis 
para atender 3 cada situação específica de necessidade 
de informações do estoque. 

Tratando-se de um exemplo prático onde prucu* 
ra-se consolidar os conhecimentos apresentadas nos ca* 
PiíulDs anteriores, os relatórios aqui descritos foram 
selecionados^ de forma a consolidar as várias técnicas 
de programação e de acesso aos arquivos, 

_ Desse modo, 03 programas de emissão de rela- 
corios apresentam uma complexidade crescente, na ten- 
tativa de demonstrar as técnicas para se obter? 

I - Simples Rei açoes 

São programas fáceis de serem elaüorados pois 
operam em geral com um único arquivo. 

Como exemplo de um programa desse tipo é 
apresentado 0 programa CMRELLBAS que imprime 0 rela- 
tório fí e I ação de Materiais. 


01 

02 
03 
84 
05 
m 

07 

89 

89 

10 


? 2 3 4 

1 2345678901 2345678901 2345678981 83^5678901 c3 

Metalúrgica METAL Ltda. 

Controle de Materiais - MATERIAIS FL-KXX 

Data da Emissão* xx/xx/xx 

COO I GO DESCRICAO TIPO 

XX XX XXXXXXXXXJíXXXXXXXXXXXXXXX xxxxxxxxxx 


2 - Ralação com Totalizaçlo 

São programas fáceis de serem elaborados pois 
operam sobre um arquivo, totalizando certas quantida- 
des em um acumulador que ê Impresso no final do rela- 
tório. 

Como exemplo de um programa desse tipo é 
apresentado 0 programa CMAEL2.BA5 que emite o relató- 
rio Sal dos do Estoque . 
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i a 3 4 s 

1 234557B901 £345678981 S345678961 2345878901 2345678901 


ei 

02 

03 

04 

05 

06 

07 

08 

09 

10 
11 

63 

64 

65 


Metalúrgica METAL Ltda< 

Controle de Materiais “ SAÍDOS DO ESTOQUE FL^KXJÍ 


Data da Emissão* xx/xx/xx 

COdIgo" DESCR I CÁO SALDO ULT * ENTRADA 


XX X X XXXXXXXXXXKXXXXXXXXXXXXXX XXXXK 
XXXX XXXXKJÍXXXXXXXXXXXXXXXXXXX xxxxx 

xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxx 


Quantidade de Itens no Cad 55 tro= xxxx 


xx/xx/xx 

xx/xx/xx 

xx/xx/xx 


3 - Re 3 ação Cruzada . 

Sio programas ainda fáceis de serem elabora” 
dos pois operam basicamente sobre um arquivo, buscando 
em outro a informação complementar. 

Como exemplo de um programa desse tipo e 
apresentado a programa CMREL3.BAS que emite o relato- 
rio Movimento do Atmoxar i fado. 


12 3 4 5 

í 234567390 i2345i709íl2345i7E9íí234567890í 234^709012345070 


%í 

02 

03 

04 

05 


Metalúrgica METAL Ltda- 

Controle de Materiais - tíWIHENTO DO íiLMOXARIFADO FVxkk 
Ma da Eaissaos kx/xk/xx 


U - — - 

07 DATA 
0B 

0? xx/xx/xx 


11 


DESCRÊ AO DOCUMENTO ENTRADA SAÍDA 

XXXXXXXXXXKXÍÍXXX^XXHXNXK XXXXXXXKÍÍÍÍ XHXXX XKXXK 

XXXXXXXXXXXXXXmXXXXXXXX xxxxmxxx xxxxx xxxxx 
xxxxxxxxxmxmmxxxxxx xxxxxxííxxx xxxxx xxxxx 


12 

13 xx/xx/xx mxmxmxmmxmxxx xxxxram xxxxx 
Í4 xxxxxxxxxxxxxxxxxxxxxxxxx xxxmxm xxxxx 

15 

16 



xxxxx 

xxxxx 
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ã < - Relação Ordenada-I. 

São programas que imprim 
cios. sem, no entanto, ordenar o a 
Gomo e x emp lo de um p r 
apresentado o programa CMREL4.BAS 
rio Saídas do Almoxar i f ado . 


1 £345678981 5345678961 £345 676981 234567B901 2345 
Metalúrgica METAL Ltda. 


DESCRI CAO 


QUANTIDADE 


xxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxx 


Metalúrgica NETAL Ltda 


Controle de Materiais 


Data da Eiissaos xx/xx/xx 


DESCRICftO 


ANTERIOR ENTRADAS SAÍDAS ATUAL 


XXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxx 


xxxxx xxxxx 
xxxxx xxxxx 
xxxxx xxxxx 


xxxxx xxxxx 
xxxxx xxxxx 
xxxxx xxxxx 


T 


DESENHO DAS TELAS DE TRABALHO 

A seguir estão relacionados os desenhos de 
todas as telas de trabalho do sistema de controle de 
mater i a i s , 


PROGRAMA; AUTOEXEG.BAS 


M 234567B901 2345678901 2345678901 23456789 



> MEERTURh < 


>eja bem 1 indo ao sistema de Controle de 
íatenais 

“■aoo r -fornecer a data de hoje 


TODOS OS PROGRAMAS 
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PROGRAMA t COMAT.BAS 



PROGRAMA CMCAD.BAS 


01 2345678901 2345678901 2345678981 23456789 

n wiMiifc— Maw«— h 


í_ 

O 

4 

5 

6 

7 

8 

40 

íl 

13 

14 

15 

if 

18 

19 

28 


y üriH 1 - i . o nt- r C' 1 ê a e n ater i a i _ 

> ChIiàSTRhHÊNTÜ MATERIAIS < 


:J i -:io ■ 000' 




)^cr||acK PAPEL LINHA KaGUA 12 
Saído’’ 200:3 ' 

MlrlÚnij: 100. ■ 

P O s 3o Ü r .ai . j a r n - h i n ^ <" ,-f \ ■ ■: 

Estou, prco id®nciando a 
i r s e r o ao d o \ *■ e q i s f- r o . 
NhO INTERROMPA 1 

m:m tmummu um 

y-; 58 \ 

r í ! ; ! ô 

> > > > > 


iüü*; 


23 


: olor- 1 olo-ad" oont 


1 1 st ru.n 
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PROGRAMA ; CMMQV.BA3 



o 

4 

5 

6 
7 
0 
9 

10 
11 
12 
Í13 
14 
1? 

II 

13 

19 

20 
21 

22 

23 

PROGRAMA i CMREGENT. BAS 



IBS 


PROGRAMA.- C 
0123" 



BAS 


| ~> REGISTRO tE SfflíftS <- 

' 

Bata da 8a ida :| ,■- 
odigo do Material: 

^>escr 1 çao : 

^aldo no Estoque 

[Quantidade da Saída 
IHistorico: 


fosso Sr ay ar no i;*iseò? 



; Qlor .a»t:n 


imn 


- 1,1 * r 8 pn t ^ f_j j e d^nãÇã^^ãi s 

'■> RLTERÃCÃO I'E ENfRRI>R~< 

p;at-3 da Entrada • 1 ., 

Odiçio do Material : 

'». '■ ••" ‘ v .*.‘ . ••. • ; •’. 

Descri eao : 
á 1 no Estoqu e ■ 

v a !’ j 1 1 dad e d b ■ En t r ada : 
distor iço : 

Poiso Sraoar no lusco? vSnN! 1 : : 



•••■ ■ '•••••; ' ' : : : s. */ 

• - 


; 





PROGRAMA: CMALTSAI.BAS 




01 2345678901 23456789012345678901 23456789 


- Controle de Material 
y ^lterhchu ’ ic %mm < 


>3 ta da Sá i da K / 
o digo do Material: 


escricap : 
a Ido no Estoou.e; 

uant idade da Sai da 
istorioo ■ 


osso b r a v i a í - no I 1 1 s o o ' l \ S / N ;i 


. 

•o,- v* f£ / ■ 


b q l o r a 1 j. t o gioto 




PROGRAMA i CMCANSAI.BAS 



PROGRAMA: CMREL.BAS 
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i Nil-^á *-Ü 00 -1 V14^ 00P0 -.rírn-^m yi jí. r_or<j i-^O ^ i_.jfO *-*d\D 00 -J 0*M1 -P^OJ PO»-^ G^JÜCO -JC 1 VI -P* ÚOrv^d 1 


PROGRAMA: CMENC.BAS 


012345678901 2345678903 2345-678901 23456789 


.COMAT - Controle ce Materiais 
I > ENCERRAMENTO PO MES <--- 

Mes em andamento -Abril 

Confirmar o encerramento CS/N? : 

3 s saldos atuais foram transferidos rara] 

os saldos anteriores. 

Os arrumos estão prontos para receber em| 
os dados doo mes de Janeiro 


pressione qstuer tecla rara continuar 

■ 

lor auto oíoto i ist ru.n 


IA CMMAN. 3 AS 


0123456789012345678901234567890123456789 


PünAT - Controle de Materiais 
-> ARQUIVO Pt PARÂMETROS < 




:• v^r V 

..." i 

... 1 






W-; v 'I 


Nome do sistema 

SOM AT - Controle de Materiais 

■ ■ ' ■ -: 

NJmero do mês ■ ■ 

Pescriçáo do mês nJãijeiro 
Quantidade de Itens no Cadastro - 16 i 

I 

I 


Muant idade Mouimentada : > 




fjltima data acessada 18/10/77: 

■ ' •: . • ■’ • | ■ •• 

h Iterar no disco? <S/N) : : 


* - v. - 

' 






| 




olor auto goto li st 


run 


1 S 2 


PROGRAMA! COMAT.BAS 


01 23456789012345678901 2345678901 £3456709 



Para desenhar suas próprias telas use um mapa 
como o mostrado a seguir! 


0123456789012345678901234567890123456769 


01 
i i 

Z \ 

3 

4 

51 

61 

7! 

81 

91 

101 . 
11 1 . 
12 ! . 
131 . 
141 
15! . 
16! . 
171 . 
18! . 
191 . 
20 ! . 
211 . 
22 ! . 
23 L_ 
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LISTAGEM DOS PROGRAMAS 


Afim de diminuir o espaça ocupado pelos pro- 
gramas, os trechos desenvolvidos nos capítulos anteri- 
ores não estio listados. 

Tais trechos sao os seguintes* 


NOME DESENVOLVIDO NO* 


E5PERE.FNT 
QQUER . FNT 
SÜN5.FNT 
ROTENT.FNT 
ABREARQ. FNT 
ROTINS.FNTT 
ROTPMOV .FNT 
ROTPRÜC.FNT 
MAPAACC.FNT 
ERRO. FNT 


cap í tulo B 
cap í tu í o 3 
capítulo 3 
cap í tu I o 3 
cap í tu I o 4 
capítulo 4 
cap í tu I o 4 
cap í tui o 4 
capítulo 4 
cap í t u I o 5 


página 25 
pág i na 50 
pág i na 51 
página GE 
pág ! ia 79 
página BS 
página 1 05 
pág i na 107 
página 113 
pág i na 1 22 


Dos programas do s i st ema , apenas os 


i ndi cados 


estão listados, de modo que os domais deverão ser de- 
senvolvidos pelo programador a título de exercício. 




PROGRAMA 

LISTAGEM 

1 

— 

AUTÜEXEC, SA5 

SIM 


2 

- 

COMAT.BAS 

SIM 


3 

- 

CMGAD* BAS 

SIM 


4 

- 

GMMOV.BAS 

SIM 


5 

- 

CMREGENT . SAS 

SIM 


6 

- 

GMREGSA ! .BAS 


NAO 

7 

- 

CMALTENT. BAS 

SIM 


B 

- 

CMALTSAI .BAS 


NAÜ 

9 

- 

CMCANENT . BAS 


NAO 

10 

- 

CMGAN5A 1 , BAS 


NAO 

11 

- 

GMREL.BA5 


NAO 

12 

- 

CMfiELI .BAS 

SIM 


13 

- 

GMRELE. BAS 

SIM 


14 

- 

GMREL3 * BAS 

SIM 


15 

- 

CMREL4 . BAS 

SIM 


16 

- 

CMREL5. BAS 

SIM 


17 

- 

CMENG.BAS 

SIM 


19 

- 

CMMAN, BAS 

SIM 
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Programa AUTOEXEC.BAS 


108 

102 

1 M 

106 

188 

283 
282 

284 
286 
208 
210 
220 
222 
224 
22B 
228 
400 
482 
404 
410 
412 
414 
416 
420 
422 
424 
426 
608 
602 
604 
610 
612 
620 
622 
624 
626 
628 
710 
712 
714 
716 
720 
722 
724 
726 


• = inicia Controle de Materiais 

, R-H.Watenabe 23704/87 

[ Parâmetros Iniciais 

08 | = “Ar 
NARQ s 1 

GOSUB 601 8 tGET #1 1 
OIM HC(3) . WC[ 3), 7CÍ 3) 

HCí 1 )=30 t VC( 1 }«7iZC( 1 )b? 

HC(2)333 = VCÍ2] = 7 : ZC(e!=1 
HCÍ 3 ) =36 í VC( 3 J =7 : ZCí 3 ) =2 

bn s | 

w 

\ Desenha Tela 
CLS 

PfflNT TT$ 

prInt " > abertura < 

pSISt -Maieríais'"^ 30 SÍStBina Úe Contro,e de " 

PRINT 

a «>»*■ hDÍ8:dd/nn/aa" 

Racebe a Data 


LOGATE HCÍ 
CS=ZGÍ CR); 
I E ASCÍA0) 
1F ASCíA*) 
1F ASGU$) 
1F A5CÍAS) 
GOTO 730 

- — — > 


CR).VC(CR) 

GOSUB 1080 
- 13 THEN GOTO 710 
= 28 THEN GOTO 710 
= 28 THEN GOTO 720 
= 27 THEN GOTO 000 




Avança o Cursor 
GR = CR + 1 

goto CR b.V ™“ G0T ° 858 

Retrocede o Cursor 
CR = CR - 1 
IF CR < 1 THEN GR a ^ 
GOTO 688 
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730 ' 

" — > Desvia 


73e 

OH CR GUSUB 

838 

73-1 

GR = GR + 1 


736 

IF CR > 3 FHtN GOTO 

850 

738 

GOTO 600 


800 # 



B82 ' 

Opeoes conforme o Cursor 



8M P 

Bie r 

81P DD$ = à$ 
Bl*l RETURN 

320 * 


B22 MH$ == A* 

RETURN 
B3B P 


832 AA$ = A) 
B3<1 RETURN 
850 r - 


B52 

854 

B56 

B58 

B6B 

Bfi2 

864 

870 


Cons i stenc i a 


SEGUE* = "SIPT 
IF VAU 00$) 
IF tf Al, ( 00$) 
IF VAL<m$) 
IF tfAUMH*) 


< 1 THEN CR=1 íSEGUE*^NAÍT 

> 31 THEN CR^I S 5EGUE$="NA0" 

< 1 1HEN CR=2:5EGUE*=' r NA0" 

> 12 THEN CR=2 s SEGUE*="NA0" 
SF SEGUE* <> "31 PT THEN GOSUEt 5810: 

GGSOÍJ 5380: GOTO 008 
B80 L5ET 00$ = 00$ 

882 L5ET UM* = m$ 

B04 LSET UAÍ s AA$ 

886 PUT #1,1 
GLOSE #1 

PP$ = "COMAT.BAS - ' 

GOSUB 5180 


B86 

880 

B92 

308 

382 

904 

986 


Des ístenc i a 
PRINT 


908 PRINT 
910 END 
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MERGE "ROTENT.F NT” 
MERGÊ "50N5.FNT" 
HEWGE "ESPERE. FNT" 
HERGE "Q0UER . FNT" 
HERGE "ERRO, FNT" 
HERGE "ABREARQ- FtTT' 
DCLETE G0e&-6636 
3AVE "AUTOEXEC„BAS” 


Programa COHAT . B AS 


lOíf íbSbbssiesss : = z = = ses e: = s&&3B5x:bd 

102 * COMAT.BAS = Controle de Materiais 

104 ssas&BssssasssassssssBsssssssasst 
106 ' R.H.Watanabe 06 / 04/87 

206 ' 

282 * Parâmetros Iniciais 

284 ' 

206 DS$ = "As” 

288 NARQ = 1 

210 GOSUB 681 is SEI 81.1 

400 ’ 

402 ' Foraatacao da tela 

404 ' 

406 CLS 

488 PRINT TT$ 

410 PR I NT” > CAROPIO DE OPÕES <- 

412 PRINT 

414 PRINT "Escolher una das opcoes:” 

416 PRINT 

418 PRINT ”1 - Cadastrar um novo material" 

428 PRINT "2 - Movimentar” 

422 PRINT ”3 - Emitir um relatorío” 

424 PRINT "4 - Encerrar o mes” 

426 PRINT "5 - Manutencan do Sistema” 

428 PRINT "6 - Encerrar o Processamento” 

430 PRINT 

432 PRINT "*** Opcao escolhida = ” ; CHR$( 255 ) ; 

500 * _ 

501 ' Entrada da Opcao 

582 * 

510 K$=INKEY$=IF K»=**' r THEN GOTO 510 
528 ÍF K*<” 1 ” OR K$>” 6 ” THEN GOTO 518 
530 PRINT 

548 PRINT "A opcao escolhida foi :”KÍ 

550 IF K|=” 6 ” THEN GOTO 760 

560 OPCAO = VAL( K$) 
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690 0« OPÇÃO GOTO 710,750,738,740,750,766 
71 0 ' 

715 ' 

714 ' 

716 
750 r 

755 ' 

754 ' 

756 
730 r 

735 ' 

734 ' 

736 
740 ' 

745 r 
744 ' 

746 
75® ' 

755 ' 

754 ' 

75G 
7R0 ' 

765 ' 

764 ' 

766 PRINT 

768 PRINT ” 0 Sistema de Controle de Materiais esta 
sendo desativado . - * 

770 PRINT 

775 PRINT” Ate a próxima!” 

774 PRINT 

776 PRINT 
778 END 

MERGE "SONS.FNr* 

HERGE ”E5PFRE,FNT" 

MERGE "ABREARQ, FNT” 

DELETE 66506036 
5AVE "COHAT.BAS" 

P r ogr sma CNCAD . B AS 

1 HAXFILES » 5 

180 ' = = = 

105 * CMC AO, 0 AS s Cadasf ramenta 

1 04 W =a = = = = = s = = = s = 5S = = íí5 = =:®5S3 

10fi ' Este programa efetua o cadastra 
103 : mento de novos materiais, 

115 * 


OPCAO = 1 Cadastr ame fito 

— n sa h» mm » #u- mm- «é. -<- — «#* mm — w «m mm mm hu wm- w m éb « 

PP$=”CMCAD. BflS” :G0SUB 5100 
OPCAO = 2 Movimentação 
PP0s"CHMDV. BA5" =G0SU8 5100 
OPCAO s 3 Relatórios 
PPÍ=”GMREL.BAS" :G0SUB 5100 
OPCAO = 4 Encerrar o mes 
PP0=”CMENC.BA5”:GO5UB 5100 
OPCAO = 5 Manutencao 
PP$=*'CW1AN . 0AS” = GOSUB S10® 
OPCAO = B Encerramento 


199 


114 ’ R.M.Watanabe 07/04/87 
116 * 

200 ' 

281 * Parâmetros Iniciais 

202 ■ 

204 CR$ a "A:" 

206 NAHQ = 1 

288 G03Ü8 6G18.EET iNARQ.1 
210 «XI = CVKRCÍ) 

212 NARQ = 2 : GO SUB 6026 
216 EC*=SPACE*(4) 

218 ED*=SPAGE*{25) 

220 ET*=5PACE$Í 10) 

222 ES*=SPAGE*Í5} 

224 EM*=5PACE$(5Í 
238 DIH HC(S) , VCÍ K ) , 7C{ G í 

231 HCÍ 1 ) = 7: VCÍ 1 )= 4; ZC[ 1 )= 4 

232 HCt2)=10 : VC(2í=: 6=ZC{2)s25 

233 HCÍ 3 )= 5 = VCÍ 3 )= 7 ; ZG[3)=10 

234 HC(4) = 6 = VCí 4) = 8:ZG(4)= 5 

235 HC{ 5 ) = 7:VCÍ5)= 3:ZC{5)= 5 

236 HC(ai=29 : VC(6í=n : ZCÍ6)a 1 

480 ' 

482 ’ Mostra Teia 

484 - 


406 

40B 

410 

412 

414 

416 

418 

420 

422 

424 

42G 

428 

586 

582 

504 


Cu - i 

SEGUEI = ”NAO" 

CLS 

PRINT TT| 

PR1NT" > GADASTRAMENTO «ATERIA I í 

" 8,4: PR I NT"Cod igo:'' 

8,6:PRlNT"uescr i caa 
8 , 7 : PR i NTT i í> o : " 
e-BjPRIWySa ir. " 

0 , 9 : PR I NT*'Hi n imo : ” 


LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

PRINT 

PRINT 1 


Posso Gravar no Disco? (S/N) : 


Hostra Valores 


516 LOCATE 7,4 : PRINT EC$”-" 
518 LOCA í E 10,6 sPRINT EOrV' 
528 LOCATE 5, 7: PRINT FT$"V’ 
522 LOCATE 6, f) = PRINT ES*’’," 
524 LOCATE 7, 9= PRINT EH*"-" 
680 * 

602 ' Entrada de Dados - 1 
604 * 


< 



610 LOCATE HC<CR),VC(CR)=C5=ZC{Cfl),G05UB 1000 
630 1 F ASCfAI» = 37 THEN 950 

633 1F ASCÍAI) = 13 THEN 710 

634 IF ASC(A|) = 38 THEN 718 

636 IF A5C(A|} = 31 THEN 718 

638 IF ASG(A$) = 39 THEN 738 

638 IF ASC(AJ) = 30 THEN 738 

656 GOTO 730 

710 ’ > Avança o Cursor 

712 CR = CR + 1 

713 IF SEGUE» = "NAO" THEN CR = 1 

714 IF CR > 6 THEN CR = 6 

716 GOTO 686 

730 ' > Retrocede o Cursar 

733 CR = CR - 1 

733 IF SEGUEI = "NAO" THEN CR = 1 

734 IF CR < 1 THEN CR = 1 

736 GOTO 660 

726 ‘ 

730 ON CR GÜSUB 810,820,630,840,850,860 
733 CR = CR + 1 

733 IF SEGUEI = ”NAO" THFN CR s 1 

734 GOTO 580 

810 * > C R =1 CODIGO 00 MATERIAL 

811 GOSUB 1200 

812 IF Cl e 0 THEN EC$ = A$ : REG*=F IRSTl, 

SEGUEI^SIMT.-RETURN 

814 LOGATE 3,5:PRINT "*** Material ia 

Cadastrado ***” 

815 GOSUB 5018 

816 LOCATE 8, 1 U; GOSUB 5200 : LOCATE 2,5= 

PRINT SPACE$(30) 

817 SEGUE» = "NAO” 

818 RETURN 

838 * > GR =3 DESCRI CAO DO MATERIAL 

833 ED$ = A» 

834 RETURN 

830 - > C R=3 xipo oo MATERIAL 

833 ET» = A| 

834 RETURN 

040 • > CR =4 SALDO EM ESTOQUE 

843 ESI = STRI(VAUAD) 

944 RETURN 

B50 ' > CR=5 ESTOQUE MÍNIMO 

853 EM» r 5TH»{VAL{ A|) ) 

854 RETURN 

860 ' > CR=6 RESPOSTA 

B63 IF A| = ”S" OR A| = "s" THEN GOTO 868 
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864 CR = 8 

866 SEGUEf . "NAO" 

86B IF SEGUEI * *'NAO" THEN RETURN 

876 GOSUB 1366 

872 LSET CD| = EC$ 

873 LSET DC$ = ED$ 

874 LSET TC| = ET$ 

375 LSET SR| = MKS${ RAM ES|) ) 

876 LSET 5L| = HKS|( 0 > 

B77 LSET QH| = MKS${ VÜU EM|) ) 

878 LSET UE| = 5PACE|{6} 

879 LSET US| - SEACEI(G) 

886 PDT «NARQ.REGl 

881 HX1 * HX% + 1 

882 GET 11,1 

884 LSET RC| = HKIKHKt) 

B86 PUT #1,1 

898 SEGUEI = ”NÃ(T 

396 RETURN 

956 GLOSE 

952 PP| = "COHAT.BAS" 

954 GOSUB 5166 

HERGE "ROTENT. FNT" 

HERGE "ROTPROC.FNT 
HERGE "RDINS. FNT" 

HERGE "SONS. FNT” 

HERGE "ESPERE. FNT” 

HERGE "QQUER . FNT" 

HERGE "MAPAAGG.FNT" 

HERGE "ABREARO.FNT* 

DELETE 6036-6036 
SAVE "CWCAD.BAS” 

Programa CMMOV.BflS 

102 ' GHHOV.BAS = Movimento de Materiais 

1 04 ' SSSSBass5BBS£ssi;;;ssa5S5SEB:=:=:;; 

16S 1 R.M.Watanabe 66/64/87 

266 ' 

202 ' Par ame troa Iniciais 

284 • 

206 OR| = "A 

208 NARQ = 1 

216 GOSUB 6610:1.1 I Hl 1 

400 ' 

402 ' Forinatacao da tela 
404 * 


201 


406 CL 5 
488 PRINT FT* 

4T0 PRINT" — > MOVIMENTO DE MATERIAIS <— " 

41 2 PRINT 

414 PRINT "Escolher uma das opcoes =" 

41 6 PRINT 

418 PRINT ”1 - Registrar uma Entrada” 

420 PRINT ”2 - Registrar uma Saída” 

422 PRINT ”3 - Alterar os Dados de uma Entrada" 

424 PRINT ”4 - Alterar os Dados de uma Sai da" 

426 PRINT "5 - Cancelar uma Entrada” 

428 PRINT ”6 - Encerrar o Processamento" 

438 PRINT ”7 - Voltar a Tela Anterior” 

432 PRINT 

434 PR INI "*** Opcao escolhida = pr ; CHR$(255) ; 

500 1 

501 1 Entrada da Opcao 

502 ' — — — 

510 K$= I NKEYÍ = I F K$=”” THEN GOTO 518 

526 IF K$<”1" OR K$>"r r THEN GOTO 510 
530 PR I NT 

540 PRINT "A opcao e 5C0 1 tl i d a foí;"K$ 

560 OPCAO = VAU K$) 

698 ON OPCAO GOTO 710,7ee, 730. 740,750, 760, 770 

712 ' opcao e i Registrar Entrada 

714 * 

716 PP$=”GMfiEGENT .HAS" : GOSUB 5100 

720 ' 

IBP ' OPCAO « 2 Registrar Saida 

724 ' 

726 PP$=”GMR£GSA I . BAS" : GOSUB 5100 

738 ’ 

732 1 OPCAO = 3 Alterar Entrada 

734 ' 

736 PP|=”CMALTENT.BAS":GOSUB 5100 

^*40 * ■“ ** r-wrrm- — w -**■ — 

742 ' OPCAO = 4 Alterar Saída 

746 PP*="CHALTSAI .BAS" = GOSUB 5100 

752 ' OPCAD = 5 Cancelar Entrada 

754 - 

756 PP|='*CHCANENT. BAS": GOSUB 5100 

760 ’ — — 

76P ’ OPCAO = 6 Cancelar Saida 

764 ’ 

7GG PP$="CHCANSAI .BAS": GOSUB 5100 
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778 ' 

772 ' OPCAO = 7 Voltar 

774 ' 

776 PP$="GÜMAT . BAS": GOSUB 5106 

MFRGF "SONS . FNT" 

HERGE "ESPERE. FNT” 

HERGE "ABREARQ. FNT' 

DELETE 6050-603G 
SAVE "CHMOV.BAS" 

Programa CMREGENT.BAS 

185 ' GHRFGFNT.HAS a Registra Entradas 

H @4 =:S3SSEBSSaiSaSS!iSS!S$aíü!iQílSSS>SIG 

186 ' Este programa registra as Entradas 
108 ° no Almoxar i f ado. 

115 ' 

114 ' H.H.Watanahe 07714/87 
118 * 

150 ' Este Programa e idêntico ao 
158 ’ CHREG5AI.BAS com excessao das 
154 ' linhas 414 e 894. 

PM ’ — 

501 ’ Parâmetros Iniciais 
508 ’ ______ 

503 HAXFILES = 3 

504 DR| = "A:" 

506 NARO = 1 

508 GOSUB 681 0 = GET 8NAR0.1 

518 HX4 = GVI { RC$ ) 

811 MV* a GVI (RM$) 

515 NARO = 5: GOSUB 6350 

514 NARO = 3, GOSUB 6838 

515 NARQ = 5 

816 EDI = SPAGE$(5Í 

517 EH* = SPACEK5) 

518 EA* = SPAGFIC?) 

519 EC$ = SPACE$(4) 

558 ET$ = SPACE*{55) 

551 ES$ = SPAGE*(5) 

555 EE* = SPACE*(5) 

553 EH$ = SPACE*(1B) 

538 DIM HC(7i,VC(7).ZC(71 
531 HC( 1 )=1 6 : VCÍ 1 ) = 4 : ZG{ 1 ) = 5 
535 HCt5)=13;VG(5)= 4=ZG(5)= 5 

533 HGOÍBaS^COlB 4 : ZCÍ3)= 5 



234 HC( 4) = 1 9 : VCC 41 = 5=7C£4)= 4 

235 HC<5)=22:VC[51=11 : ZC(5)= 5 

23S HC( 6 í = 1 0 = VC{ 6 ) = 1 2 = ZC{ 6 } =1 0 

230 ncmsESíVcmsMiZGtyís i 
<\m • 

402 ' Mostra Teia 

484 - 

488 Cfl = 1 

408 SEGUE* = ”NA0" 

410 CLS 
412 PRINT T7* 

414 PRINT' > REGISTRO DE ENTRADAS < 

41 E LOCATE 0.4 : PRINT"Data da Entrada: / / , 

417 LOCATE 0, 5 : PR I NT"God) go do Material: 

418 LOGAIt 0, B:PR I NT’Descr s cao :"SPAGEÍ( 251" 

419 LOCATF 0 , R : PR I NT”Sa I do no Estoque ; 

420 LOCATE 0, 1 1 ; PR I NT°’ Qu a n t i dade da Entrada: 

421 LOCATE 0, 12 , PR INT"Mi stor i co :”SPACE$Í 1 8 ]" 
42B PRINT 

428 PRINT "Posso Gravar no Oiscn"? {S/N1- 

580 ' 

502 ’ Mostra Valores 
584 ' 

51 B LOGATE 16, 4=PR1NI ED* 

517 LOGATE 19, 4= PRINT EH* 

51 R LOCATE 22, 4= PRINT EA* 

519 LOCATE 19, 5=PRINT EC* 

520 LOCATE 16. 8:PRINT ET* 

521 LOGATE 17, 9:PHIN1 ES* 

522 LOCATE 22,11 : PRINT EE* 

524 LOGATE 10. 12 ; PRINT EH* 

600 ' 

682 ' Entrada de Dados - 1 
604 ' 

B10 LOCATE HC{ CR) , VG( CRI :GS=ZC[ GR) GOSUB 1808 

620 IF ARC( A$) = 27 THEN 950 

622 IF A5C( A* ) = 13 THEN 710 

624 IF ASC|A*> = 28 THEN 710 

626 IF ASC( A* I = 31 IHEN 710 

628 IF ASC( A* ) = 29 THFN 720 

638 IF ASC1A*) = 30 THEN 720 

650 GOTO 738 


710 * > Avança o Cursor 

712 GH = GR + 1 

714 IF CR > 7 THEN CR = 7 

71 6 GOTO 808 

720 ' > Retrocede o Cursor 

722 CR = CR - 1 
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724 IF CR < 1 THEN CR = 1 

726 GOTO 606 

720 ' 

730 ON CR GOSUB 818,020,830,848,858,860,070 
732 CR = CR + 1 
734 GOTO 500 


818 ' > ÜH-1 Ol a 

812 IF VAL(A$)<1 OR VAL ( A$ )>31 1HEN GOSUB 5300: 

CR = @ = SEGUE$=”NAO" = RETURN 
014 ED$ = A$ 

816 RETURN 

826 ' > GR=2 Mes 

822 IF VALíAtKI OR VALI A$)>12 TIIEN G05UB 5300: 

CR=1 :SEGUE$="NAO” : RETURN 
824 EM$ = A| 

826 RETURN 

830 ' > CR=3 Anu 

834 EA$ = A$ 

036 RETURN 

848 ' > CR=4 Codigo do Material 

841 GOSUB 1280 

042 IF Cl <> 0 THEN ECI=A| = ET$=OCI , 

ESI=5TRSIGVS(SR*)+CVS(SI $) 
SEGUFÍs"SIK%REGl=Cl = RETURN 
843 10CATE 7,6:PRINT ”*** Material nao 

Cadastrado ***" 

044 GOSUB 5810 

B45 LOCATE 0,19:GQSUH 5208=LOCATE 7,6: 

PRINT 5PÂCE${ 30 ) 

846 SEGUEI = ”NAtT 

847 GR = 3 

848 RETURN 

850 ’ > CR=5 Quantidade da Entrada 

852 IF VAL{ A$ } = 0 THEN GOSUB 5300 : CR=1 =RETUHN 

854 EE$ = At 

856 RETURN 

860 ’ > CR=6 Historico 

864 EH$ = A$ 

86 5 RETURN 

870 ' > Resposta 

872 IF A$ s "5" OR A| = "s" THEN bülü 878 

P74 ro , a 

876 SEGUES = "NAO" 

078 IF SEGUEI = ”NAO" THEN RETURN 

880 ' > Analisa se os dados sao validos 


882 A| = E 11$: GO SUO 810 
884 A $ = EM$= GOSUB 829 
887 A| = EE$: GOSUB 850 
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3B8 IF 

SFGUE$ = "NAO" THEN RETURN 

000 

L5ET MC$ = ED$+EM$+EA$ 

891 

LSET MH$ = EH$ 

892 

LSET MC$ = EG$ 

893 

L5ET HÇ$ = MKS$( VAL(EEÍ) ) 

894 

L5ET MV$ = ”E" 

895 MV% = MV% + 1 

896 PUT R3,MV% 

897 

CET «1 ,1 

093 

LSET HM$ = MK l$(MVt) 

899 

PUT #1.1 

908 


901 

GET #2, REG4 

902 

LSET UE$ = UD$ + UM$ f UA$ 

903 

PUT #2, REGI 

918 SEGliEÍ = “MO" 

911 GR 

= 0 

912 RETURN 

950 ' 

.y Saída dc Programa 

952 

GLOSE 

954 

PP$ = "GOMAT.BAS" 

956 

GOTO 5100 

MFRGE 

"ROTENT.FNT” 

MFRGE 

"ROTPROG. FNT” 

MFRGE 

"SONS . FNT" 

HFHGt 

"ESPERE. FNT" 

MERGE 

"QQUER.ENT" 

MEHGE 

"ERRO . FNT” 

HERGE 

"ABREARQ- FNT" 

5AVJE " 

CMREGENT.BAíT 

Programa CMREGSAI.BAS 


Desenvolver este programa como exercício- 
Ele è semelhante ao programa CMREGEN1 . BAS, 
com exceção das linhas 414, 894 e 982, 

Frograma CMALTENT -BAfí 

100 * Sia»»BB1CB==== = = =íi35 = ==== = BSei5 

102 ’ CMALTENT . BA5 = Altera Entrada 

18G ' Este programa permite alterar 
108 ' os dados de uma entrada. 

1 1 í * 

114 ’ R .M.Watanabe §7/84/87 

116 ' 
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126 ' Este programa e identtco au 
122 CMALT5A I . RAS com excecan das 
124 ■’ l intias 263 e 414 

260 ’ 

261 ' Parâmetros Iniciais 
282 ' 

203 MAXFILES = 3 

264 TIPO* a "t" 

205 DR$ = "A" 

266 NARQ = 1 

208 G05UB 6010 ; GET 8NARQ.1 

210 MX% = CVKRC*) 

211 MVX = CV ( [ RM$) 

212 NARQ = 2;G0SUH 6020 

214 NARQ = 3-GOSUB G030 

215 NARQ = 2 

21 E ED| = SPACE$(2) 

21/ EMI = SPACElí?} 

218 EA$ = SPACE${ 2 ) 

21 B CG| = SPACEÍ14] 

220 ETI = SPACElí 25 | 

221 ES| = SPACEft 5 ) 

222 EC* = SPACElí 5 ) 

223 EHÍ = 5PACEÍM0) 

230 OIM HCÍ 7 ( , VC[ 7 ) , ZC( 7 ) 

231 HQ{ 1 ) = 1 E ;VG( 1 )= 4:ZGU) = 2 

232 HCÍ 2 ) =1 9 : VC( 2 )= 4:ZC(2)= 2 

233 HCÍ 3) =22 : VG( 3 } = 4:ZCÍ3Í= 2 

234 HCÍ4 ) = 1 S : VG( 4)= 5«ZG(4)= 4 

235 HGÍ 5) =22 : VGí 5 ) =1 1 : ZCt 5}= 5 

23fi HC{6Í=10,VC(G)=12:ZC(GÍ=10 
23B HG( 7) =28: VG( 7í=14:ZGí7)= 1 

400 ' 

402 ' Mostra Tela 

484 * 

406 GB a 1 

408 SEGUE$ = "NA O” 

41* CLS 
412 PR1NT TT| 


414 
41 P 

417 

418 

419 

420 

421 
426 


PRINT”-- > ALTERACAO DE ENTRADA <— 

LOCATE 8 ,4: PR INT“Data da Entrada: / 

LOCATE 0,5:PR 1NT"Codi gc do Material: 
LÜGATE 0,8=PRINr'Dsscr ícaot"SPACE|125) 
LOCATE 8, 9 ; PR INT"Sa 1 do no Estoque: 
LOCATE 8,11 :PRINT“Qiiantidade da Entrada 
LOCATE 0, 12: PRlNfHi stnr i co ="SPACE|( 1 0 ) 
PRINT 


» mm 


428 PRINT "Posso Gravar no Disco? (5/N) 


f* 



509 ' 

505 ' Rostra Valores 
504 ' 

51 6 LOCATE 16. PR I MT EDI 

517 LOCATE 19. SPRINT EM| 

518 LOCATE 25. SPRINT EA$ 

519 LOCATE 19. 5:PRIMT EC| 

528 LOCATE 18. BiPRINT ETI 
551 LOCATE 17. 9:PRINT ES$ 

555 LOCATE 55,11 =PRINT EE$ 

524 LOCATE 18,15 S PRIMT EH| 

660 ' 

905 ' Entrada de Dados - 1 
884 * — — — 

610 LOCATE HG( CR) ,VC{ GR) :G5=ZG{ CR) =GOSUB 1098 

612 IF CR = 1 AND ASC{A$) = 38 THEN REGI = REGI - 1: 

GOTO 750 

614 IF CR = 1 AND ASC{A|) = 31 THEN REGI = REGI + 1 . 

GOTO 759 

650 IF ASC< A$) = 57 THEN 959 

655 IF ASCl A)) = 13 THEN 718 

654 lf ASCl A| ) b 58 THEN 710 

656 IF ASClAll = 31 THEN 710 

958 IF ASG(AI) = 59 THEN 750 

636 IF ASC( A|) = 30 THEN 758 

650 GOTO 730 


710 ■ — > Avança o Cursor 

712 CR = CR + 1 

714 IF CR > 7 THEN GR > 7 

716 GOTO 680 

750 ’ > Retrocede o Cursor 

755 CR = CR - 1 

754 IF CR < 1 THEN GR « 1 

756 GOTO S9@ 

758 ‘ 

730 ON GR GOSUB 610,820,830,840.850.860,870 
735 GR = CR + 1 

734 GOTO 500 

73fí * 

750 IF REGI < 1 OI REGI > MV* THEN GOTO 608 


751 GET 83, REGI 

755 IF TIPO* <> MVt THEN GOTO 612 

753 ED$=l EFT$( HD$ . 5 ) 5 EH$=M I 0$(HD$ . 3 , 5 ) = 

EA$=H I GHT$( HU$ , 5 ) 

754 EG< = HG$ 

755 EEI = STR$(GVS(MO$U 

756 EH$ = HH* 

757 At = EGt 


508 


758 

759 

81 e 
812 

814 

016 

820 

822 

824 

826 

890 

831 

832 


834 

836 

838 

839 
84» 

841 

842 


843 

644 

646 

846 

847 

848 
850 ' 
852 
854 
856 
860 * 

864 

865 
870 " 
872 
874 
876 
878 
880 * 
882 


GOSUfí 840 
GOTO 400 

— > CR=1 Dia 

I F VALÍ A$)<1 08 VALÍ At )>31 THEN GDSUB 5300 = 

CR =8 = SEGUE$="NAO*% RETURN 

e m = At 
RETURN 

—— > CR -2 ms 

IF VAL( Aí Kl Oft VAU At »1 2 THEN GOSÜB 5300 = 
CR=1 : 5EGUE*="NA0” = RETURN 
m$ = M 
RETURN 

CR =3 Afia 

EA$=A* s A$*ED$+EM*+EA*=NARQ.3=GÜSU0 1100^480*2 
IF REG1=0 THEN LOCATE 0,G=PRINT Nao houve 

Mo v imanto nesta data**" ; 

GDSUfl 501 0 = LOCATE 0,1S = G 

Ect = mm 

EE$ * STRtCCVSCMQD) 

EH$ es m$ 

4* = KCS 

CR=4 Codi^o do Material 

GOSUB 1200 

IF Cl <> 0 THEN EC$=At iET$^0C$ = 

ES*=STR*< CVS{ SR$ )+CVG( 5L$ J ) ? 
5EGUEÍ="5 IMT* RETURN 
LOCATE 7,S=PRINT ”*** Material nao 

Cadastrado 

G0SU8 5010 

LOCATE 0.19;GO3Ua 5200 E LOCATE 7,6= 

PRINT SPAGEÍ<30) 

SEGUE* * ”NAGT 
CU = 3 

RETURN 

* — y CRb 5 Quantidade da Entrada 

■F VALÍ A*) «0 THEN GOSUB 5300 = CR=1 s RETURN 
EEJ = A$ 

RETURN 

“ — > CR=6 Histérico 

EHt = A$ 

RETURN 

> Resposta 

ÍF At * "S* r OR A$ = “ r s" THEN GOTO 870 

ÇJj _ 0 

SECUE$ = "NMT 

IF SEGUEI = ”NAO” THEK RETURN 

> Analisa se os dados sao validos 

A| - ED| ■ GOSUB 81$ 
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884 

887 

888 
831 
895 
833 
894 
836 
380 
301 
385 
358 
355 
354 


At 

A$ 


= EMt>GOSÜB 858 
■ EEtsGOSUB 658 
IF SEGUEt = "NAÍT THEH RETURN 
L5ET HD$ = EUt+EHt+EAt 
L5ET MH$ = EHt 
LSET HG$ « EC| 

LSET MQt = HKSKVAKEEt)) 
PUT 83, REGI 
SEGUEt = "NAtT 
CR = 8 
R ETURH 

CLOSE 

PPt = "GOHAT.BAS" 

GOSUB 5188 


MERGE "RDTEHT. FHr' 
HERGE "ROTPHOG , FNT" 
HERGE "ROTPMOV.FNT" 
HERGE "SONS. FNT" 
HERGE "ESPERE. FNT 
HERGE "QOUER.FNT” 
HERGE ” ERRO. FNT" 
HERGE "ABHEARQ.FM“ 
SAVE "CHALTENT . 0A5" 


Programa CMALTSAI .BAS 

Desenvo \ ver este programa como exercício. 
Ele ê semelhante ao CMALTFfíT. BAS, com exce- 
ção das linhas 203 e 414. 


Programa CHCANENT.BAS 

Desenvolver este programa como exercício. 

Programa CliCANSAI - BAS 

Desenvolver este programa como exercício. 


Programa CMREL -B AS 

Desenvolver este programa como exercício. 
Ele é parecido com o COHftT.BAS > 


Programa CMRELÍ -BAS 


100 * ============================== s = =s s= s== 

l«e ' GMRELl.BAS = Emite Relacao de Materiais 
104 * ======================================= 

1iB ’ Este programa emite o rei atar i • 

108 ’ RELACAO DE MATERIAIS 
110 * 

118 ' R.H.Watanade 80/M/B7 

114 * 

800 ' 

208 ' Parâmetros Iniciais 

SM ' — — 

806 DR$ = "A:" 

8Í8 NARQ = 1 rCGSUe B010 ; CET #1,1 

210 HX1 = CVMHC0) 

814 KARQ = 2=G0SUB 6020 

216 JIC$ = "NAl r 

218 PAGINA = 1 

220 HLÍHHA = 54 

222 FH$ = ”#####'' 


402 ' 
404 ' 
410 
412 
414 
416 
600 ' 
682 ' 
604 ' 
610 
614 
620 
636 
640 
642 
650 
660 
672 
800 
910 ’ 
311 ’ 


912 

913 

914 

915 

916 


Mostra Teia 
n c 

PRINT TT« 

PR INI ” > IMPRESSÃO DO REL 1 <- 

GOSUB 5350 


Núcleo de Emissão do ftelatorio 


FOR REGI = 1 TO MX1 
GET 2, REGI 

IF JIC* = ”NAO" THEN GOSUB 920 
LPR INT SPCt 1 >CD$SPC( 2 )DC$SPC[ 1 ) ; TC* 
IF NLINHA > MLINHA THEN G0SU8 910 
LOCATE 5+30*REGt/MXV18:PHINT 
NEXT REGI 
GLOSE 

LPR I NT STRING$(43,"=”| 

PP$ = "GWtEL . BAS*' : GOSUB 5109 


Salto de Pagina 


LPR I NT STRING0(43,"-’' | 
LPR INT CHR$( 12); 

J I G$ = ”NA(T 
NLINHA = 0 
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917 PAGINA = PAGINA + 1 

919 RETURN 

920 ’ 

921 ’ Imprime u Cabeçal ha 

922 ' — 

924 LPSINT "Metalurgina METAL Ltda.'* 

925 LPRINT 

926 LPRINT "Controle de Materiais - HATER I Al 5"TAB( 37) 

"TL-"; 

927 LPRINT USING ”88lt";PAGINA 

928 LPRINT 

929 LPRINT "Data da Emissão: "UO$"/"UMr'/"UA$ 

93» LPRINT STB I NG$( 43 , ) 

931 LPRINT "GODIGO DESCR I CAO**SPG( 1 7 )"T I PO" 

932 LPRINT 

933 JIC* = "SIM r 

934 RETURN 

HEftGE "ESPERE. FNT* 

MERGE "HAPAACC. FNT” 

MERGE "ABREARO. FNT" 

OELETE 6038-8836 
5AVE "CHREL1 .BAS" 
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APÊNDICE I 


CON^ERS^íO DE COMANDOS 


A linguagem BASIC, ernbura universal, pode 
apresentar algumas diferenças em função do equipamento 
onde esteja impi ementada. 

Fm part i c u I a r , os Bastes dos equipamentos 
compatíveis com O Appfe-CP/M. K5X e IflM-PC apresentam 
pequenas diferenças. Os exercícios e exempios do livro 
foram elaborados no BASIC MSX, de modo que os leitores 
qee possuem outros tipos de microcomputadores devem 
estudar as diferenças cu i dadosamente antes de se lan- 


g ar a e 1 abur ação da 

5 i stema de Contra 1 e 

de Estoque. As 

diferenças principais 

s 5o 

as seguintes; 


1 - As 

teclas 

de 

mov ímentação do 

cursor possuem 

códigos ASCI 

1 diferentes. 

Veja a tabela 

seguinte; 

TECLA 

MSX 



IBtt-PC 

APPLE-CP/M 

► 

28 



0 77 

21 

T 

31 



0 80 

não tem 


39 



8 75 

8 

i 

30 



0 72 

não tem 

HOME 

11 



0 71 

não tem 


Os exemplos do livro devem sar adaptados. 

Para o IBM~PG, a função INKEY$ retornará uma 
string de 2 caracteres, com o primeiro igual a 0. O 
programa poderá verificar o segundo com; 

6^ 1 F A5G(«IGHT$U*,1))=77 TH EM GOTO 710 


em ver de; 

ÜE4 \F A8CÍA$^2B THEN GOTO 710 

Para o AppIe^CP/M, que não dispõe de determinadas 
teclas, há a opção de escolher alguma outra tecla para 
simular as inexistentes. 

2-0 comando OPEN possue 2 sintaxes básicas: 

I - QPEN ”nome" FOR moda AS ttarquivo LEN^tamanho 
1 1 - ÜPEN ”modo p \ Karqui vo, "nome”, tamanho 
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Para o MSX, vale a sintaxe I e o nome do arquivo 
pode conter o do dispositivo a ser usado: 


ÍjAS : 

para 

CRT : 

para 

LPT: 

para 

GRP : 

para 


modo 

fi í , R : 


C*. D: 

para 

F 5 , F: 



a fita cassete 
o monitor de ví deo 
a impressora 
o noon i tor de ví deo ro 
gráfico 

os dr i ves de d i scos 


Nn MSX os arquivos sequenciais são definidos com: 

OPEN "noma” FOR modo as «arquivo 

0 modo pode ser INPUT, para ser lido, CUTPUT, 
para ser escrito ou APPEND, para ser acrescido de da- 
dos. Por exemplo; 

108 OPEN "A: CADASTRO. ARQ" FOR SNPUT AS #1 

Os arquivos randômicos são definidos c om = 

OPEN "nome" as «arquivo LEN=tamanha 

Por exemplos 

200 OPEN "A: CADASTRO. ARO" AS #1 LEN=78 

No Apple-CP/M os arquivos sequenciais são defini- 
dos com: 

OPEN "modo", «arquivo. "nome” 

O mndn pede ser I. para ser lido, ou 0 para ser 
escrito, Pnr exemp I o: 

100 OPEN ”r\n,"A : CADASTRO. ARO" 

Os arquivos randômicos são definidos com: 

OPEN "R", «arquivo, "nome", tamanho 

Por exemp I n ; 

208 PEN ”R”.#1 ,”A = CADASTRO -AftO".7R 


No íBM-PC podem ser empregadas tanto uma sintaxe 
como a outra, indistintamente. Os dispositivos, além 
dos disk drives, sao os seguintes: 


CAS1 : 

para 

a t ita cassete 

COMI : 

para 

li porta de comunicação 

C0M2: 

para 

2i porta de comunicação 

KYBD: 

para 

o teclado 

LPT1 * 

para 

a U impressora 

LPT2; 

para 

a 2§ impressora 

LPT3: 

para 

a 3i impressora 

SCRN: 

para 

o mon i tor do u í d s o 


3-0 tamanho máximo do nome da variável depende 
do sistema, 

No M5X, por exemplo, os nomes SALDO e SALARio 
embora pareçam se referir à variáveis distintas, refe- 
rem-se à variável SA, pois apenas as 2 primeiras le- 
tras dos nomes das variáveis são consideradas. 

Em resumo: 


MSX 

IBM-PC 

APPLE-GP/M 

Pode ter até * 254 

254 

£54 

Considera apenas? 2 

40 

48 

4 ~ Os comandos de 
bem são diferentes. 

pos i c i onamen to 

do cursor tam- 

No MSX, o comando 

é LOCATE e sua 

sintaxe é a se- 


gu i nt e ; 

tüCATE coluna, linda, cursor 

No IBM-PC, o comando também e o LOCATE porém a 
sua sintaxe é diferente e mais completa: 

LOCATE coluna, \ I nha, cursor , í tiícín,f i* 

Os parâmetros infeto e fim indicam - o tamanho do 
cursor . 

No AppIe-CP/M, os comandos são o VTAB e o HTAB 
com as seguintes sintaxes* 

VTAB tinha 

HTAB coluna 

Os valores possíveis disponíveis na configuração 
mínima das máquinas estão resumidos a seguir. 


WS 




MSX 

1 BM-PC 

APPL E-CP/M 

Go J una 

0 a 39 

1 a 80 

1 a 40 

L i n fia 

0 a í?3 

1 a 24 

1 a 24 

Cursor 

0 ou 1 

0 ou 1 

ião tem 


5 - A especificação da quantidade máxima de ar- 
quivos simultaneamente abertos se faz de forma dife- 
rente. 

No MSX , utiliza-se o comando MAXFILES. Por exem- 

pll : 

100 MAXFILES = 5 

No IBM-PG e io Apple-GP/M se ta: durante a carga 
do BASIG na memória com: 

BA5ÍCA /F=5 

ou 

HBAS1C /F:5 

Em todos os casos, a quantidade de arquivos pode 
ser entre 1 e 15, sendo o "default” igual a 3. 

A tabela a seguir apresenta a relação de todos os 
comandos e funções dos Basics: 

TABELA GCMPARAT IVA ENTflE BASICS 


IBM-PC 

HSX 

APPLE "P/H 

ABSfr) 

= 

- 

ASC(cí) 


= 

ÁTNír) 


- 

AUTO 1 , i 

- 

- 

não tem 

BASEÍi) 

naa km 

BEEP 

- 

“ 

lião tem 

não te» 

BEEP j r t 

não tem 

BINSÍH 

nau t eh 

BLOAD 

= 

não teu 

BSfWE 

3 

não km 

ião te* 

não teas 

SUTTDN(p) 

CALE 

- 

- 

ião ten 

não te» 

CALL 1 

CDBL(dl) 

- 

- 

CHAIN 

não te» 

- 
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CHRíía) 
CHKrJ 
CIRCLE 
não te» 
não te» 
CLE^R i F i 
não te» 
nh tem 
CLOSE 
CLS 

COLOR í,f,b 
COLOR f,p 
não te» 
CWfíp) 
mwH 

CONT 


CIRCLE STEP 
nag tew 
não teu 
CLEftl? E ,j 
CLIAD 


nãrt teu 
nao te» 
não tCG 
não ters 


não tej» 
não teu 
CLEAR e r j 
não teu 
não teu 
rãc te* 

nao te» 
não te» 
não tem 
COLOR- í 
não tem 


COS (a) 

í; 

«j 

não teu 
CSNGÍd) 

CSftVE 

não tem 

CSRLIN í a 25 
CVDÍjJ) 

= í s 24 

não tea 

CW(il> 

~ 


CVSÍsll 

2 


DAfA 

= 


OAfEt 

DAFEt 

def ru 

na o te» 
não teu 

não tem 
não teia 

DEF SEG 
DEF USS 

não te» 

não tem 

0EFD8L 

- 


DEFINÍ 

= 


DEFSGFI 

= 


DEFSTfi 

= 


DELETE i-j 


não te» 
DEL i,i 

iíSü tes 
DIH 

nâo tem 

DRftN 

EDIT 

nãn to» 

não te* 

END 



EOF 

- 


ERA5E 



ERL 

= 


ERR 

— 


error 

- 


Eff(n) 

= 

" 

FlXfn) 

- 


FIELD 

= 


FILES 

— 



HOilL 


VPOS 


DEL 

PELE TE 



FOR 




FRE(i> 




FREí""} 




GET Hf 

- 



GCT Hp 

não tem 

não te» 


GET m 

não tem 

não te» 

BLOAB 

não te» 

não tem 

GET cl 

MEY1 

GOGUD 


- 


GOTO 

- 

- 


não t e» 

não te» 

GR íí,y 

SCSEEM 

HEXÍÍi) 

=■ 



não tem 

não tem 

HLIH 

UNE 

não tem 

não te» 

mm 

€LS 

não te» 

não te» 

HPLOT 

PRESET 

nãc tem 

não te» 

HTAB 

LOCATE 

1F 

“ 

ÍZ 


INKEYÍ 

= 



IKP(p) 

- 

não tem 


INPUT 

- 

- 


ENPUfif 

“ 

— 


ENFUT4 

- 

= 


IN5TR 

- 

E 


IÍJT(r) 

- 

“ 


não tem 

INTERMAL 

não ten 


nSo teu 

não tem 

1MERSE 

COLOR 

KEY 

- 

não tem 


KILL 

- 

- 


LEFTS 

— 

= 


LEH(el) 

- 

z. 


LEI 

— 



LI NE 


não tei 

HLIH 

não te» 

LIME STEP 

não te» 


LIME IHPUT 

” 

= 


UNE IHPUT Hf - 


— 


LIST 

- 

— 


LIST rdisp 

não te» 

não íei 

LLIST 

LLIST 


— 


LENtcl) 

- 

— 


LGAD 




LOCÍf) 




LCCATE i i c 

diferente 

não te» 

UTAB.HTAB 

diferente 

LOCATE c,i 

não te» 

HTAMTA8 

LOF(f) 

- 

“ 


LOGÍr) 

— 

— 


LÍOS(p) 

- 



LPRIHT 

= 



LPRINT USIHS 

= 

— 


LSET 

- 

— 
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nao te# 

HASÍFÍLEÊ-n 

não te# 


MERGE 

- 



ilIDt 

- 

- 


HIDS 

- 

- 


KDKdJ 

= 

— 


KKlIfi) 

= 

= 


HKSÍÍr) 

= 

- 


MOTOR (0) í (i> 

di íerente 

nãp te# 


diferente 

MOTOR ON : OFF 

nan te» 


NaHE 

- 



NEW 

= 

~ 


NEXT 

- 

= 


NEXT v 

ft 

- 

nao tea 


nao tea 

jr*+ 

nao tea 

NORMAL 

SCflEEN 

nao tea 

não tea 

NQTRACE 

TRON 

OCTSÍ i } 

- 

- 


OH COM(p) 

não tea 

não te# 


ON ERROR 

- 

= 


0N x GOSLI0 

- 

Z 


OH íí GOTO 

- 

= 


não te# 

ÜN ÍNTER0AL 

não tea 


diferente 

OH KEY SOSUE 

não te# 


OH KEYÍn) 

diferente 

rão tem 


oh m 

não tea 

não te» 


não tea 

ÜN SPRITE 

não te# 


nan te» 

OM STOP 

nao tc» 


d iferente 

OH GRTRIN6 

nãü Lei 


OH STR IhfGCn ) 

diferente 

não tea 


0PEN FOR 

- 

d iferente 


OPEH #f 

di ferente 

- 


OPEH "CDtf: 

não tea 

nao tea 


mm BASE 

não te# 



OUT p x v 


nao te» 


não tea 

PADíp) 

não te# 


PAIHT 

— 

não tea 


nao te# 

PftlfíT £TEP 

não tea 


não te# 

PDL(p) 

Z 


PEEK(Í) 

— 

= 


PEN 

nSo tea 

não tea 


PEN 

não te» 

nao te» 


PLAY 

não te« 

não tf» 


não tea 

PLAY 

não tea 


não te# 

não tea 

PLÜT 


POINT 

- 

não tea 


POJCE 

= 

- 


não ten 

não tea 

POP 


POS(x) 

s 



PRESET 

- 

não tea 

HPLOT 
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ftào U& 

PRFSFT STFP 

não Ui 


PRIMT 

= 

— 


PRINT U-SIHG 

= 

■= 


PRIhfTHf 

s 

- 


PRINT Sf,U5ING 

- 

= 


PSEF 

= 

não Ua 

PLOT 

não te» 

PSET STEP 

não tet 


PUT ttF jrf 

“ 

= 


PLJT ■ 

não Ui 

nao tei 

BBAVE 

não Ui 

PJJT SP8ITE 

nso te» 


RftNDütfIZE 

não tes 

= 


READ lista 

- 

- 


REK 

- 

- 


RENütí 

s 

s 


RESET 

= 

= 


RESFORE 

2 

— 


REStíHE 

= 

— 


RETURN 


— 


RETURN linha 

não Ui 

não tei 


RlGWTI(ci r a) 

n 

- 


RKD ( i > 




RSET 

- 

- 


RUM 

= 

= 


SUN V,R 

- 

- 


não t Bi 

«UH i 

= 


SftUE V,fl 

= 

- 


SAVE "a" r P 

não te» 

~ 


SCREEN 

diferente 

não Ui 


diferente 

SCREER 

não te» 


mm 

não te» 

não Ui 


não tei 

nao te> 

SCRN 

POINT 

SGNín) 

= 

- 


SINÍr) 

— 

- 


SOUKd f r d 

diferente 

não te» 

DEEP 

diferente 

SOUftD r r e 

não Ui 

BEEP 

SPACEÍÍa) 

- 

£ 


SPCÍa) 




nan tei 

SPRÍTE 

não tei 


não fcea 

SPftlTEI 

não te» 


SÔR(n) 


= 


STICKÍx) 

= 

não Ui 

PDL 

STÜP 




não tei 

STOP ONsOFF 

não Ua 


STRÍÍa) 

s 

— 


STF IG OM:OFF 

não tea 

não tei 


STSIG(f) 

= 

não Ui 


STRiCífi) 

- 

não tei 


STRINGI 


— 
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SUM 

- 

srsroi 

não te» 

TABía) 


TAN!r> 


não teu 

não tens 

diferente 

FINE 

diferente 

TINE 

TINES 

diferente 

nm 

diferente 

não teu 

não te* 

TffOFF 

- 

TROA 

- 

USfiíi) 

difere te 

diferente 

USR X A 

VAUcí 

z 

WRFTRCvf) 

= 

V^RPTR í #f J 

não te® 

VéRPTRKSJ 

não te® 

não teia 

VDPÍn) 

mo tem 

UPP(n) 

não te* 

não ts# 

n|o tess 

UPFFK 

não te* 

wm 

nao te* 

não tem 

não íei 

não te# 

ttAIT p>n T # 

- 

um 

não te» 

UHILC 

nâo te» 

yiDTH n 

=: 

não te* 

não te* 

UIDTH MA 

não tci 

UIDTH disPfi 

não te* 

diferente 

não tef 

ífôlTE 

nao te» 

WRITE M 

não tei 


x 

CALL 

TEXT 

SCfíEÊW 

não te# 


não te# 


não tem 


nao te# 


TRACE 

TRflN 

nso fcea 

NÜTRACE 

não ten 

TRACE 

diferente 


não te# 


não te# 


não tem 


VLIK 

LI NE 

não te» 


não te# 


tfpos 

OCR IN 


LÍCATF 


tílDTH l,h 
nao ten 
d i ferente 
HIDTH LPfíIWT 


a = número A3G I I [ entre 0 e 255 ) 

0 = anguí o em r adí anos 

c ~ numero da coluna 

c$ = stríng de caracteres 

d - número real em precisão dupla 

= string de número compactado de precísio dupla 
e = endereço 

t " número de referência do arquivo 

1 = número inteiro 

i$ - strirtg de numero Inteiro 
i - número da I j n&a 
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m = matr i z 
p = número da porta 
r = número real 

slt = stríng de número compactado de precisão simples 
t = tempo 

v = variável numér I ca 
v$ = nome de uma variável 


APÊNDICE II - OCÜPACÃO DA MEMÓRIA 
COMPUTADOR MSX= 


fase A fase B fase C fase 0 

1111 



— i HIMEM 
— í FRETOP 
— i sTcrop 

— t STREWD 
— } flRYTAÍ 
—i UARTflí 


— i TXTTAB 



COMUTADOS IBH-PC 


fase A fase B fase C fase D 



— f- UIHEM 
-f FRETOP 
— > STKTOP 


— f BTREND 
— i ARÍTAB 

— » TXTTAB 


CQHPUTADOJi APPLE-CP/íí 


fase A fase fl 


fase C fase 0 


FFFF -* 


ím 


um 


tm 


RAM 


Usa do 
Si st eia 


JÍrea de I/Q 


CP/Í1 


Dispunível 
para o 
Usuário 


BIOS 


soas 


livre 


1 


fluffers 


Stringç 


Stackers 


livre 


Arrays 


Var iáveís 


Pragraaa 


Interpretador 


— i HIHEH 
— i FRETOP 
-i STKTOP 


— í STREND 

— í mm 

-4 MARTAS 
— 1 TXTTAB 


E24 


s 


programaçao 
profissional em basic 


1 ROBERTO MASSA RU 
WATANABE, é um dos nomes 
de maior destaque dentro da 
informática brasileira. Conheci- 
do já há muito pelos usuários 
de microcomputadores, seus 
trabalhos realmente mais notá- 
veis realizaram-se em ambien- 
tes de grande porte, 

Paraielamente ao- seu 
trabalho como profissional de 
informática, Watanabe sempre 
se dedicou a luta pela melhoria 
da qualidade dos profissionais 
brasileiros, assumindo tarefas 
de educador com grande 
maestria. 

Neste livro, sempre pre- 
ciso e tecnicamente impecável 
mas nem por isso abandonando 
a clareza e o didatismo, Wata- 
nabe transmite ao leitor em vias 
de profissionalização uma nova 
visão da linguagem BASIC. As 
:i boas técnicas” de programa- 
ção são ensinadas e justifica- 
das, com abordagens sobre 
análise de sistemas e técnicas 
dc depuração e otimização. 
Como sub-produto da leitura 
do livro, o usuário passa a dis- 
por de um programa de Con- 
trole de Estoque sobre o qual 
tem completo domínio, poden- 
do alterá-lo com segurança. 


MSX 

IBM-rc 

MBASIC 



EDITORA ALEPH 
Caixa Postal 20.707 
CEP 01498 - São Pfiu!o-SP. 


